Дано целое двузначное число, определить, равны - вопрос №8896537 от nastyu24022005 25.06.2020 20:34

Question

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

nastyu24022005 · Answer

program HelloWorld;

var S: integer;

begin

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

readln(S);

if(s mod 10 = s div 10) then writeln('Числа равны!')

else writeln('УВЫ! Числа не равны!')

end.