Пользователь вводит с клавиатуры целые положительные числа, разделяемые нажатием клавиши . Признаком конца последовательности является число 0. Напишите программу, которая выводит на экран сумму и среднее арифметическое чётных чисел(выполнить программу с помощью операторов цикла while и repeat)
More Questions From This User See All
Answers & Comments
begin N:= 1; count:= 1; while not(N = 0) do begin read(N); if N mod 2 = 0 then begin sum:= sum + N; count:=count + 1; end; end; writeln('sum = ',sum); writeln('sr. arefm. = ',sum/count);end.