Леонид
4 год назад
С описанием каждого шага, пожалуйста и с составлением блок-схемы
ОТВЕТЫ
Дарья
Nov 5, 2020
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
129
Смежные вопросы: