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

Question

Информатика

Харламп

2 декабря, 04:46

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

+5

Ответы (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.