Напишите программы для решения задач. используя div и mod

дана масса в граммах. переведите ее в килограммы и граммы

Question

Информатика

Виола

17 августа, 05:17

Напишите программы для решения задач. используя div и mod

дана масса в граммах. переведите ее в килограммы и граммы

+3

Ответы (1)

Знаете ответ на вопрос?

Никушка · Answer 1

Var

m, k, g:integer;

begin

Write ('Введите массу в граммах: ') ; Read (m) ;

k:=m div 1000;

g:=m mod 1000;

Writeln (m,' г = ', k,' кг ', g,' г')

end.

Пример

Введите массу в граммах: 23521

23521 г = 23 кг 521 г

Напишите программы для решения задач. используя div и modдана масса в граммах. переведите ее в килограммы и граммы

Напишите программы для решения задач. используя div и mod

дана масса в граммах. переведите ее в килограммы и граммы