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

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

Задать свой вопрос
1 ответ
Var s,t:integer;
begin
write  ('s='); readln(s);
if (sgt;-10) and (slt;10) 
then writeln ('Число однозначное') 
else begin   
t:=s mod 10;   
writeln (abs(t));   
end; 
end.
Елизавета Сташивская
ошибочно
Самущик Колек
Напиши как правильно будет
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт