Напишите программу, в которой осуществляется ввод целых чисел (ввод осуществляется до тех пор, пока не будет введен ноль) и подсчет суммы и среднего арифметического введенных положительных чисел. Используйте оператор repeat.
Ответы
Ответ дал:
0
Программа на Pascal ABC:
Приложения:
Ответ дал:
0
var s,a,i: integer;
begin
cls;
repeat
readln(a);
if a <> 0 then begin
s:=s+a;
i:=i+1;
end;
until a=0;
writeln('Ñóììà: ',s);
writeln('Ñðåäíåå: 's/i);
end.
begin
cls;
repeat
readln(a);
if a <> 0 then begin
s:=s+a;
i:=i+1;
end;
until a=0;
writeln('Ñóììà: ',s);
writeln('Ñðåäíåå: 's/i);
end.
Ответ дал:
0
это текстом
Ответ дал:
0
Я тут запятую забыл (12 строчка): writeln('Среднее: ', s/i);
Похожие вопросы
2 года назад
7 лет назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад