Опубликовано 13.06.2017 по предмету Информатика от Гость >> <<

Определить, состоит, ли двузначное число, введенное с клавиатуры из одинаковых цифр.
Turbo Pascal

Ответ оставил Гость

Var n,n1,n2:integer;
begin;
readln(n);
n1:=n mod 10;
n:=n div 10;
n2:=n mod 10;
if n1=n2 then writeln(Y) else writeln(N);
end.