Question

Паскаль!Программа которая просит пользователя ввести количество человек,потом каждый пользователь вводит свой вес и программа выводит общий вес всех людей

Answer 1

Ответ:

program HomeWork;

var i,a,b,c:integer;

begin

   c:=0;

   write('Введите количество человек: '); readln(a);

   for i:=1 to a do

   begin

       write('Введите вес ', i, '-го человека (кг): '); readln(b);

       c:=c+b;

   end;

   writeln('Общий вес (кг): ', c)

end.

Answer 2

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

pascalCopy code
program Общий_вес;

var
  Количество_людей, Вес, Общий_вес: real;
  i: integer;

begin
  Общий_вес := 0;

  write('Введите количество человек: ');
  readln(Количество_людей);

  for i := 1 to Round(Количество_людей) do
  begin
    write('Введите вес человека ', i, ' (кг): ');
    readln(Вес);
    Общий_вес := Общий_вес + Вес;
  end;

  writeln('Общий вес всех людей: ', Общий_вес, ' кг');
end.

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