Question

1)За день в магазине купили 300 упаковок детского питания. С каждой проданной упаковки перечисляется n-я сумма денег в детские дома. Создайте программу на языке Паскаль, которая поможет найти сколько всего было собрано денежных средств.

Answer 1

Ответ:

Объяснение:

var n:integer;

begin

write('введите сколько перечисляется с одной покупки ');

readln(n);

writeln('всего перечислили ',n*300)

end.

Answer 2

Конечно, вот программа на языке Паскаль, которая решает данную задачу:

pascalCopy code
program CalculateTotalFunds;

var
  numPacks, n, totalFunds, i: integer;

begin
  // Вводим количество упаковок и значение n
  write('Введите количество упаковок: ');
  readln(numPacks);
  
  write('Введите номер суммы n: ');
  readln(n);
  
  // Инициализируем общую сумму денег
  totalFunds := 0;

  // Проходимся по каждой упаковке и добавляем n-ую сумму к общей сумме
  for i := 1 to numPacks do
  begin
    totalFunds := totalFunds + n;
  end;
  
  // Выводим общую собранную сумму денег
  writeln('Общая сумма собранных денежных средств: ', totalFunds);
end.

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