Question

Помогите с задачей в Pascal: Дано: m килограмм яблок и n килограмм апельсинов, посчитать стоимость покупки если килограмм апельсинов стоит k рублей, а кг яблок r рублей. Уже 4 час сижу с другом и мозг пинаю, все ошибки выпадают различные

Answer 1

var m, n, k, r, sum : integer;

begin

 write('Введите цену яблок: '); read(r);

 write('Введите цену апельсинов: '); read(k);

 write('Введите кг яблок: '); read(m);

 write('Введите кг апельсинов: '); read(n);

 sum := r*m + k*n;

 write('Общая стоимость покупки: ',sum);

end.

Answer 2

Конечно, я помогу вам с решением этой задачи на языке Pascal. Вот пример кода, который рассчитывает стоимость покупки:

pascalCopy code
program CalculateCost;

var
  m, n: Integer; // килограммы яблок и апельсинов
  k, r: Integer; // стоимость кг апельсинов и яблок
  costOranges, costApples, totalCost: Integer;

begin
  Write('Введите количество килограмм апельсинов: ');
  ReadLn(n);
  
  Write('Введите стоимость одного килограмма апельсинов: ');
  ReadLn(k);
  
  Write('Введите количество килограмм яблок: ');
  ReadLn(m);
  
  Write('Введите стоимость одного килограмма яблок: ');
  ReadLn(r);
  
  // рассчитываем стоимость апельсинов и яблок
  costOranges := n * k;
  costApples := m * r;
  
  // рассчитываем общую стоимость покупки
  totalCost := costOranges + costApples;
  
  WriteLn('Стоимость покупки: ', totalCost, ' рублей');
end.

В этом коде мы сначала запрашиваем у пользователя количество килограмм апельсинов и яблок, а также стоимость одного килограмма каждого из фруктов. Затем мы рассчитываем стоимость апельсинов и яблок, а также общую стоимость покупки путем умножения количества килограмм на стоимость за килограмм. Результат выводим на экран.

Пожалуйста, убедитесь, что вы правильно вводите значения, иначе могут возникнуть ошибки. Если у вас остались какие-либо вопросы или проблемы, не стесняйтесь спрашивать!