Question

Создать программу "общий вес" на языке Паскаль. Определить общий вес учащихся в 8В классе.

Answer 1

var

x,s:real;

i:integer;

begin

writeln('Программа "Общий вес"');

writeln('После окончания ввода всех данных учащихся, введите число 0');

write('Введите вес ученика: ');

readln(x);

i:=0;

while x<>0 do begin

 s:=s+x;

 i:=i+1;

 write('Введите вес ученика: ');

 readln(x);

 end;

writeln();

writeln('Количество учеников: ', i);

writeln('Общий вес учеников равен: ', s:0:2);

end.