program z1;
var a:real;
begin
readln(a);
write (trunc(frac(a)*100) mod 10)
end.
Объяснение:
Берём дробную часть, умножаем на 100, отбрасываем дробную часть и получаем последнюю цифру.
Предположим а = 100.123
Берём дробную часть: frac (a) = 0,123
Умножаем на 100: frac (a) * 100 = 12,3
Отбрасываем дробную часть: trunc (frac (a) * 100) = 12
Получаем последнюю цифру: trunc (frac (a) * 100) mod 10 = 2
По этапам:
program z1;
var a:real;
b:integer;
begin
readln(a);
a:=frac(a);
a:=a*100;
b:=trunc(a);
b:=b mod 10;
write (b)
end.
Поделитесь своими знаниями, ответьте на вопрос:
Вкорзине лежит 15 груш и несколько яблок. сколько в корзине может лежат плодов, если известно, что ( яблок не больше , чем груш) или ( яблок не меньше, чем 20)?