Question

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

Answer 1

program HelloWorld;

var S: integer;

begin

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

    readln(S);

   

   

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

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

   

end.