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

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

Найти нужный

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

ИЗВЕСТНО,ЧТО СООБЩЕНИЕ УЧИТЕЛЯ ,О ТОМ ЧТО К ДОСКЕ ПОЙДЁТ САША ОРЛОВ ,СОДЕРЖИТ 5 БИТОВ ИНФОРМАЦИИ . СКОЛЬКО УЧЕНИКОВ В КЛАССЕ?... Запишите с помощью букв и знаков логических операций каждое высказывание. 1) 12 декабря отмечают день конституции РФ или День народного единства 2) Зи... Каждый из десяти населенных пунктов соединен автодорогами с девятью другими(без проезда на промежуточные пункты). При этом автобусное сообщение сущест... Какие протоколы используются на канальном уровне модели OSI (второй уровень), Для чего? Что такое маршрутизатор? Коммутатор? Репитер? Для чего испол... Faceit finder пишет что у меня закрытый профиль хотя это не так...