Помогите пожалуйста с информатикой. 1)Написать программу ** turbo paskal, которая...

Question

Помогите пожалуйста с информатикой.
1)Написать программу на turbo paskal, которая определяет все ли цифры трехзначного числа одинаковые

Answer 1

Var n,e,d,s: longint;
begin
read(n);
s:=n div 100;
n:=n mod 100;
d:=n div 10;
e:=n mod 10;
if (s=d) and(s=e)and(d=e) then writeln('ravny') else writeln('ne ravny');
end.