Все входные и выходные данные являются целыми числами. Дано расстояние 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.