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

Question

Информатика

Добромила

12 ноября, 13:50

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

+3

Ответы (1)

Знаете ответ на вопрос?

Надюша · 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.