Дано трёхзначное число. Напишите программу, которая определяет:а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 123; 121; 222
пример выходных данных: нет; да; да
б) является ли число "перевёртышем", т.е. числом, десятичная запись которого читается одинаково слева направо и справа налево.

1 ответ

Посмотреть ответы

DevAdmin

1720

Var x,a,b,c:integer;
begin
writeln ('введи трехзначное число');
readln (x);
c:=x mod 10;
b:=x div 10 mod 10;
a:=x div 100 mod 10;
if a=с then writeln ('Число является перевертышем')
else writeln ('число не является перевертышем');
if (a=b) or (a=c) or (b=c) then writeln ('да')
else writeln ('нет');
end.

Хороший ответ

2 декабря 2022 02:43

Остались вопросы?

Найти нужный

Еще вопросы по категории Информатика

Графические примитивы в графическом редакторе представляют собой: a) простейшие фигуры, рисуемые с помощью специальных инструментов графического редак... Если фрагмент поместить в буфер обмена, то сколько раз его можно вставить в текст ? А)один Б)это зависит от количества строк в данном фрагменте В)стол... N =5 A=[0]*N for i in range(N):         A[i]=i+3 Какие значения будут записаны в массив A?... 7. Вычислите десятичные эквиваленты следующих чисел: а) 1728; б) 2EA16: в) 1010102; г) 10,1; д) 2436... Достоинство растрового изображения: 1)четкие и ясные контуры 2)небольшой размер файлов 3)точность цветопередачи 4)возможность масштабирования без п...