Question

Кто Отлично знает информатику срочно Написать код программы 3 задание

Answer 1

Программа:
program summa;
var a: integer;
begin
read(a);
a := a MOD 10;
write(a);
end.

Ответ на вопрос: 
5

Answer 2

Program summa;
var
a:integer;
x:real;
begin
readln(a);
x:= a mod 10;
writeln(x);
end.