Написать программу, определяющую состоит ли трехзначное число из одинаковых цифр.Подсказка: в материалах урока есть программа по определению цифр в двузначном числе!
Написать программу, определяющую состоит ли трехзначное число из одинаковых цифр.
Подсказка: в материалах урока есть программа по определению цифр в двузначном числе!
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы