Напишите программу, которая переводит массу, заданную в золотниках, в фунты, пуды и берковцы.

Для старорусской системы весов известны следующие соотношения:
1 берковец = 10 пудов = 400 фунтов = 38 400 золотников.
Напишите программу, которая переводит массу, заданную в золотниках, в фунты, пуды и берковцы.

Вот программа на Pascal для перевода массы из золотников в фунты, пуды и берковцы, используя известные соотношения для старорусской системы весов:

pascal
program WeightConversion;
var
zolotniki, funty, pudy, berkovtsy: integer;
const
ZolotnikiPerPood = 3840; // 1 пуд = 3840 золотников
PudovPerBerkovets = 10; // 1 берковец = 10 пудов

begin
write(‘Введите массу в золотниках: ‘);
readln(zolotniki);

// переводим в пуды, остаток — золотники
pudy := zolotniki div ZolotnikiPerPood;
zolotniki := zolotniki mod ZolotnikiPerPood;

// переводим в берковцы, остаток — пуды
berkovtsy := pudy div PudovPerBerkovets;
pudy := pudy mod PudovPerBerkovets;

// оставшиеся золотники и пуды сразу переводим в фунты
funty := zolotniki * 400 div 3840 + pudy * 400;

writeln(‘Масса в золотниках равна:’);
writeln(‘Фунтов: ‘, funty);
writeln(‘Пудов: ‘, pudy);
writeln(‘Берковцев: ‘, berkovtsy);
end.

Эта программа позволит вам перевести массу, заданную в золотниках, в фунты, пуды и берковцы в соответствии со старорусской системой весов.