Ответ:
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
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
Ответ:
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