Дата публикации:

Решение задачи на Паскале:


program CalculateIncome;

var
  N1, N2, N3, N4, N5: integer; // количество товаров, купленных каждым покупателем
  S1, S2, S3, S4, S5: integer; // сумма, которую отдал каждый покупатель
  Income: integer; // общая выручка кассы
  AvCost: real; // средняя стоимость покупок

begin
  // ввод данных
  writeln('Введите количество товаров и сумму покупок для каждого покупателя:');
  readln(N1, S1);
  readln(N2, S2);
  readln(N3, S3);
  readln(N4, S4);
  readln(N5, S5);

  // расчет общей выручки
  Income := S1 + S2 + S3 + S4 + S5;

  // расчет средней стоимости покупок
  AvCost := Income / (N1 + N2 + N3 + N4 + N5);

  // вывод результатов
  writeln('Общая выручка кассы: ', Income, ' руб.');
  writeln('Средняя стоимость покупок: ', AvCost:0:2, ' руб.');
end.

В данной программе мы сначала вводим количество товаров и сумму покупок для каждого из 5 покупателей. Затем считаем общую выручку кассы как сумму всех сумм покупок. Далее вычисляем среднюю стоимость покупок как отношение общей выручки к общему количеству товаров. Наконец, выводим результаты на экран.

 

 
Загрузка...