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

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

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

Назад