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

GGWPmen GGWPmen    2   24.08.2019 16:50    2

Ответы
0rus0 0rus0  05.10.2020 17:00
Var a,b,m:real;
Begin
Writeln('введите число');
Readln (m);
A:=m div 100;
b:=m div 1000;
Writeln('центнеров',a,'тонн',b);
Readln;
End.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика