Предмет: Информатика,
автор: дидок
дано трёхзначное число.верно ли что оно состоит из одинаковых цифр. решите через паскаль.
Ответы
Автор ответа:
0
var
a : integer;
begin
read (a);
if (a mod 10 = a div 100) and (a mod 10 = a div 10 mod 10) then writeln ('yes') else writeln ('no');
end.
Интересные вопросы
Предмет: Окружающий мир,
автор: romafadeichev
Предмет: Английский язык,
автор: dipnermark
Предмет: Литература,
автор: Аноним
Предмет: Геометрия,
автор: Marina1213