Составить две программы на языке Паскаля с помощью операторов цикла…

Составить две программы на языке Паскаля с помощью операторов цикла До и Пока, которые будут вводить целые числа (до тех пор, пока не будет введенноль) , подсчитывать сумму и среднее арифметическое введеных положительных чисел.

в избранное

svm1975

11 августа 2022

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.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Знаете другой ответ?