Дано трёхзначное число. Напишите программу, которая определяет:а) есть ли среди цифр заданного целого трёхзначного числа одинаковые;
пример входных данных: 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

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

Найти нужный

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

Жёсткий диск является: 1.внешней памятью 2.устройством управления 3.оперативной памятью 4.арифметическим устройством... постройте логические схемы... помогите БУДЬЛАСКА это очень срочно!!!! 1. чем сильная аутентификация отличается от слабой? 2. для чего используется процедура идентификации?3. Какие... Массив A заполнили, а потом изменили: n := 2020; for i := 1 to n do A[i] := i; for i := 1 to n div 2 do A[i] := A[n + 1 - i]; Чему р... 1. Выберите правильный ответ из предложенных вариантов. Что такое компьютерный вирус? 1) Прикладная программа. 2) Системная программа. 3) Программ...