Задание:
Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с клавиатуры. Вид экрана: Введите числа. Для завершения последовательности нажмите ноль. 45 23 15 0 введено чисел: 3 сумма чисел: 83 Среднее арифметическое: 27,67 С ЦИКЛОМ While do пожалуйста напишите а не с Repeat untill
Решение:
program z8; uses crt; vari,k,n: byte; s: integer; sa: real; beginclrscr; i: =1; writeln ('Для завершения последовательности нажмите ноль'); while i>0 do beginread (i); write ('); {- нужен, чтобы числа нормально смотрелись}if i>0 then begink: =k+1; s: =s+i; end; end; sa: =s/k; write ('введено чисел: ',k,' сумма чисел: ',s,'Среднее арифметическое: ',sa: 4:2); readkeyend.
Знаете другой ответ?