Нужно написать программу, которая проверяет состоит ли трёхзначное число из одинаковых цифр ( например 555). И расписать в формуле эту цифру - 555.

Есть ответ
12.12.2022
416

Ответ


var
a:integer;
a1, a2, a3:byte;
begin
read(a);
a3:=a mod 10;
a2:=a div 10 mod 10;
a1:=a div 100;
if (a1=a2) and (a2=a3) then
write(a);


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
12.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.