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

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

Решение задачи №1

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

 

 

Назад