Написать программу. Дана масса в килограммах. Найдите число полных тонн в ней.

Question

Маркиана

18 октября, 08:06

+4

Ответы (1)

Знаете ответ на вопрос?

Ироида · Answer 1

Uses crt;

var m:integer;

begin

WriteLn ('Введите массу в кг') ;

ReadLn (m) ;

m:=m div 1000;

WriteLn (m,' тонн (ы) ') ;

Readln;

End.