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

Question

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

Answer 1

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

Comments

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