Дана масса М в килограммах. Используя операцию деления нацело, найти количество полных центров и тонн в ней

Question

Анночка

7 февраля, 12:28

+1

Ответы (1)

Знаешь ответ?

Гапа · Answer 1

Var a, b, m:real;

Begin

Writeln ('введите число');

Readln (m);

A:=m div 100;

b:=m div 1000;

Writeln ('центнеров', a,'тонн', b);

Readln;

End.