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кг всегда бесплатные.

Answer 2

Конечно, вот перевод задачи на язык Паскаля:

pascalCopy code
program LuggageCost;

var
  n, luggageWeight, freeWeight, paidLuggageCount: integer;
  costPerKg: real;

begin
  // Ввод стоимости провоза 1 кг багажа
  write('Введите стоимость провоза 1 кг багажа (в рублях): ');
  readln(costPerKg);
  
  // Задаем вес чемодана и количество бесплатного кг
  luggageWeight := 32;
  freeWeight := 20;
  
  // Рассчитываем, сколько кг багажа надо оплатить
  n := luggageWeight - freeWeight;
  
  if n > 0 then
  begin
    // Рассчитываем количество чемоданов, которые пассажир может провести на свои деньги
    paidLuggageCount := n div luggageWeight + 1;
    
    writeln('Пассажир может провести на свои деньги ', paidLuggageCount, ' чемодан(а/ов).');
  end
  else
    writeln('Пассажир может провести на свои деньги 0 чемоданов.');
end.

Этот код позволяет пользователю ввести стоимость провоза 1 кг багажа и находит количество чемоданов, которые пассажир может провести на свои деньги, учитывая, что первые 20 кг багажа бесплатны.