Среднее арифметическое четных и нечетных

@maxworl · Регистрация: 12.12.2012

Author24 — интернет-сервис помощи студентам

Нужно написать программу которая находит среднее арифметическое четных и нечетных чисел, вводимых пользователем с клавиатуры до тех пор, пока не введем 0.

@Arigato · 21.12.2013, 02:03

Pascal

sum1:=0; cnt1:=0;
sum2:=0; cnt2:=0;
repeat
  readln(a);
  if a <> 0 then begin
    if odd(a) then begin
      inc(sum2,a);
      inc(cnt2);
    end else begin
      inc(sum1,a);
      inc(cnt1);
    end;
  end;
until a=0;
sred1:=sum1 div cnt1;
sred2:= sum2 div cnt2;
writeln(sred1, ' ', sred2);

@maxworl 0 / 0 / 0 Регистрация: 12.12.2012 Сообщений: 19
		1
	Среднее арифметическое четных и нечетных 20.12.2013, 22:15. Показов 1515. Ответов 1 Метки нет (Все метки) Нужно написать программу которая находит среднее арифметическое четных и нечетных чисел, вводимых пользователем с клавиатуры до тех пор, пока не введем 0. 0

	21.12.2013, 02:03

Среднее арифметическое четных и нечетных

Решение