Предмет: Информатика,
автор: ArtSpring
Определить, состоит, ли двузначное число, введенное с клавиатуры из одинаковых цифр.
Turbo Pascal
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Кыргыз тили,
автор: asylzat462008
Предмет: Математика,
автор: dosym2009
Предмет: Математика,
автор: Аноним
Предмет: Математика,
автор: Nyyb