"Программы без ошибок можно написать
двумя способами, но работает — третий"
Алан Джей Перлис

Решение задач по теме "Действия с целыми числами в Pascal"

Дано расстояние L в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см).

program one;
var
   L:integer;
begin
   write('Введите длину в сантиметрах. L= ');
   readln(L);
   writeln('Количество полных метров = ',L div 100);
end.

 

 

Назад