Question

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

Answer 1

uses crt;
var m:integer;
begin
WriteLn('Введите массу в кг');
ReadLn(m);
m:=m div  1000;
WriteLn(m,' тонн(ы)');
Readln;
End.

Answer 2

Это на Паскале.