Напишите программы для решения задач. Используйте операции div и mod: 1) Дана масса в...

Question

Напишите программы для решения задач. Используйте операции div и mod:
1) Дана масса в граммах. Переведите её в килограммы и граммы
2) Площадь участка измеряется в арах. Найдите кол-во полных км в квадрате.

Answer 1

1)
var
a:integer;
begin
  Readln(a);
  Writeln(a div 1000, 'кг ', a mod 1000, 'гр');
end.

Пример:
1234
1кг 234гр

2)
var
a:integer;
begin
  Readln(a);
  Writeln(a/10000, ' км. кв.');
end.

Пример:
100
0.01 км. кв.