Написать программу. Дана масса в килограммах. Найдите число полных тонн в ней.
Написать программу. Дана масса в килограммах. Найдите число полных тонн в ней.
Гость
Ответ(ы) на вопрос:
Гостьuses crt;
var m:integer;
begin
WriteLn('Введите массу в кг');
ReadLn(m);
m:=m div 1000;
WriteLn(m,' тонн(ы)');
Readln;
End.
Не нашли ответ?
Похожие вопросы