Дано двузначное число Напишите программу ** языке Паскаль, которая определяет: Есть ли...

Question

Дано двузначное число Напишите программу на языке Паскаль, которая определяет: Есть ли среди цифр заданного целого двузначного числа одинаковые.

Answer 1

var s:string;

begin

 write('Введите целое двузначное число: ');

 readln(s);

 if s[1]=s[2] then writeln('Цифры одинаковы')

 else writeln('Цифры различаются');

 readln

end.