Написать программу, которая при вводе числа в см выдает количество полных метров. (На языке Паскаль)
program a_2;
var i,k:integer;
l:real;
begin
write('Введите длину в см:');
read(i);
l:=i/100;
k:=int(l);
writeln('Искомая длина в метрах:',k)
end.
Программа округлит число метров до целых.
program meters;
var cm:integer;
begin;
readln(cm);
writeln(cm div 100);