Question

Помогите, пожалуйста! Надо перевести задачу на язык Паскаля по информатике. Стоимость провоза 1 кг багажа n руб., 20 кг можно провести бесплатно. У пассажира чемодан имеет вес 32 кг. Сколько таких чемоданов может провести пассажир на свои деньги?

Answer 1

Программа:

var

 n0, d0: real;

 n, d, x: integer;

begin

 writeln('считаем сколько чемоданов по 32кг сможем провезти (первые 20кг бесплатно)');

 write('введите стоимость провоза 1кг багажа (руб): ');

 readln(n0);

 write('введите сколько денег для оплаты багажа есть у пассажира (руб): ');

 readln(d0);

 n := Trunc(100*n0);

 d := Trunc(100*d0);

 x := ((d div n) + 20) div 32;

 writeln('количество чемоданов которое сможет провезти пассажир: ', x, ' шт.');

end.

Объяснение:

В общем, сделал с возможностью ввода денег до сотых долей (то есть, до копеек), и расчёт исходя из того, что первые 20кг всегда бесплатные.