Ответы
Ответ дал:
0
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.
begin
write ('s='); readln(s);
if (s>-10) and (s<10)
then writeln ('Число однозначное')
else begin
t:=s mod 10;
writeln (abs(t));
end;
end.
Ответ дал:
0
неверно
Ответ дал:
0
Напиши как верно будет
Вас заинтересует
1 год назад
9 лет назад
9 лет назад