Question

Определить последнюю цифру заданного целого числа в pascal

Answer 1

var s,t:integer;
begin
write  ('s='); readln(s);
if (s>-10) and (s<10) 
then writeln ('Число однозначное') 
else begin   
t:=s mod 10;   
writeln (abs(t));   
end; 
end.

Answer 2

неверно

Answer 3

Напиши как верно будет