Написать программу ** Pascal, которая сообщает о равенстве или не равенстве последних...

Question

Написать программу на Pascal, которая сообщает о равенстве или не равенстве последних цифр трех заданных чисел. Заранее спасибо. Если можно, то пожалуйста с объяснениями...

Answer 1

//PascalABC.NET 3.3,сборка 1611 от 06.01.2018

//Внимание! Если программа не работает, обновите версию!

begin

var (a,b,c):=readinteger3('a,b,c->'); a:=a mod 10 ; b:= b mod 10;

 c:=c mod 10;

  if (a=b) and (b=c) then writeln('последних цифры равны  ')  else 

  writeln('последних цифры не  равны  ');

end.

---