Объяснение:
program pr1;
var L:Integer;// ввод пользователя
M:Integer;//полных метров
begin
write('Enter L: ');
readln(L);
M:=L div 100;
writeln(M);
readln;
end.
//Программа на Delphi/Pascal
Поделитесь своими знаниями, ответьте на вопрос:
Дано расстояние L в сантиметрах. Используйте операцию деление нацело, найти количество полных метров в нём.Значение L ввести с клавиатуры-7-8 б.
Объяснение:
program pr1;
var L:Integer;// ввод пользователя
M:Integer;//полных метров
begin
write('Enter L: ');
readln(L);
M:=L div 100;
writeln(M);
readln;
end.
//Программа на Delphi/Pascal