Integer2. Дана масса $$M$$ в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней (1 тонна = 1000 кг).
Решение:
|
1 2 3 4 5 6 7 8 9 |
program Integer2; var M,Mt: Integer; begin Write('Введите массу в килограммах: '); Readln(M); Mt:=M div 1000; Writeln('В данной массе полных тон: ',Mt); end. |
Другие задачи из раздела Integer можно посмотреть здесь.
Комментарии: