Написать программу, определяющую состоит ли трехзначное число из одинаковых цифр.

Подсказка: в материалах урока есть программа по определению цифр в двузначном числе!

Question

Информатика

Олюня

23 мая, 23:41

Написать программу, определяющую состоит ли трехзначное число из одинаковых цифр.

Подсказка: в материалах урока есть программа по определению цифр в двузначном числе!

+4

Ответы (1)

Знаете ответ на вопрос?

Иша · Answer 1

Var

n:integer;

begin

write ('Введите трехзначное число: ') ;

readln (n) ;

if (n mod 10 = n div 100) and (n mod 10=n mod 100 div 10) then writeln ('Да') else writeln ('Нет') ;

end.