Все входные и выходные данные являются целыми числами. Дано расстояние L в сантиметрах. Используя операцию деление на целое, найти количество полных метров в нем (1 метр= 100 см.)
Var l:integer;
l1:real;
lm:integer;
begin
write(Введите расстояние в сантиметрах );
read(l);
l1:=l/100;
lm:=trunc(l1);//округляет значение до близжайшего вычитая из него -0.5
writeln(lm, метров);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
