Составить две программы на языке Паскаля с помощью операторов цикла До и Пока,которые будут вводить целые числа(до тех пор,пока не будет введен ноль),подсчитывать сумму и среднее арифметическое введеных положительных чисел.
Program N1;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write(Введите числа. Конец ввода 0: );
n:=1;s:=0;c:=0;
while (n<>0) do
begin
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
end;
writeln(Сумма чисел:,s);
writeln(Среднее арифметическое:,s/c);
readkey;
end.
Program N2;
Uses Crt;
var n,s,c:real;
begin
clrscr;
write(Введите числа. Конец ввода 0: );
s:=0;c:=0;
repeat
readln(n);
if (n=0) then break;
if (n>0) then
begin
s:=s+n;
c:=c+1;
end;
until (c=0);
writeln(Сумма чисел:,s);
writeln(Среднее арифметическое:,s/c);
readkey;
end.
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
