Задание:
Нужно найти среднее арифметическое тремя циклами в паскале
Решение:
Предполагается, что вводимые числа — целые.1) С помощью цикла Repeat Until Program n1; Uses CRT; Var s,k,i: integer; sr: real; beginWriteln ('Vvodite chisla. Vvedite 0 dlya okoncania vvoda'); RepeatReadln (i); s: =s+i; inc (k); Until i=0; sr: =s/ (k-1); Writeln ('Srednee arifmeticheskoe=',sr: 4:4); readlnend. 2) С помощью цикла WhileProgram n1; Uses CRT; Var s,k,i: integer; sr: real; beginWriteln ('Vvodite chisla. Vvedite 0 dlya okoncania vvoda'); i: =1; While i<>0 dobeginReadln (i); s: =s+i; inc (k); end; sr: =s/ (k-1); Writeln ('Srednee arifmeticheskoe=',sr: 4:4); readlnend. 3) С помощью цикла For Program n1; Uses CRT; Var s,j,k,i: integer; sr: real; beginWriteln ('Vvedite kolichestvo chisel'); Readln (k); Writeln ('Vvodite chisla'); For j: =1 to k do begin readln (i); s: =s+i; end; sr: =s/k; writeln ('Srednee arifmeticheskoe=',sr: 4:4); readlnend.
Знаете другой ответ?