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

Question

Информатика

Силя

10 октября, 00:52

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

+4

Ответы (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.