С описанием каждого шага, пожалуйста и с составлением блок-схемы
Приложения:
![](https://st.uroker.com/files/168/168d5d30620436367d7618e23ddbaa10.jpg)
GSTLB:
халявная задача, честное слово, но на мертвевшем уже лет 20 паскале писать не буду, так что, аналогично предыдущему человеку, могу только шаги описать
Ответы
Ответ дал:
1
Ответ:
program z1;
var a:real;
b:integer;
begin
readln(a);
a:=abs(a);
a:=frac(a);
a:=a*100;
b:=trunc(a);
b:=b mod 10;
write (b)
end.
Объяснение:
Ввод а
Получение модуля переменной а и записывание результата в переменную а
Получение дробной части переменной а и записывание результата в переменную а
Умножение переменной а на 100
Получение целой части переменной а и записывание результата в переменную b
Получение последней цифры переменной b и записывание результата в переменную b
Вывод b
Приложения:
![](https://st.uroker.com/files/458/45895934cd667bb176c5a3b792dfc7b2.jpg)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад