Дано целое двузначное число, определить, равны - вопрос №8896712 от Svet1k03 28.02.2021 00:06

Question

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

Svet1k03 · Answer

program HelloWorld;

var S: integer;

begin

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

readln(S);

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

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

end.