Question

Ученики 9 класса собрали макулатуру. В сборе приняло 15 человек. Известно,сколько кг собрал каждый. Сколько всего макулатуры собрали ребята. (pascal)

Answer 1

Program sss;

Uses crt;

var

begin

writeln ('Сколько собрал каждый?');

for i:=1 to 15 do

begin

write (i,' - ый человек собрал ');

readln (kg);

s:=s+kg;

end;

writeln (s,' - кг всего собрали');

end.

Answer 2

Для решения данной задачи на Pascal, вы можете использовать следующий код:

pascalCopy code
program TotalPaperCollection;

var
  i, totalPaper, currentPaper: integer;

begin
  totalPaper := 0; // Изначально общее количество макулатуры равно нулю

  // Цикл для считывания количества макулатуры, собранной каждым учеником
  for i := 1 to 15 do
  begin
    writeln('Введите количество килограмм макулатуры, собранное учеником ', i, ': ');
    readln(currentPaper);

    totalPaper := totalPaper + currentPaper; // Прибавляем текущее количество макулатуры к общему
  end;

  writeln('Всего макулатуры собрали ребята: ', totalPaper, ' кг.');
end.

Программа сначала объявляет переменные i, totalPaper и currentPaper. Затем она использует цикл for для считывания количества макулатуры, собранной каждым из 15 учеников. После этого программа суммирует все значения и выводит общее количество собранной макулатуры.