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