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

Question

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

Answer 1

program numbers;

var x, y: integer;

begin

writeln('Введите число.');

read(x);

if (x mod 10)=(x div 10) then write('Цифры одинаковые') else write('Цифры разные');

end.