Question

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

Answer 1

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);

Answer 2

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.