Написать программу на Pascal, которая сообщает о равенстве или не равенстве последних цифр трех заданных чисел. Заранее спасибо. Если можно, то пожалуйста с объяснениями...
Answers & Comments
nkpk
//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
Answers & Comments
//Внимание! Если программа не работает, обновите версию!
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.