Вводить числа, пока не встретится 0. Найти среднее арифметическое этих чисел, которые делятся на 3

@Mandarink-a · Регистрация: 13.02.2014

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

Вводить числа, пока не встретится 0. Найти среднее арифметическое этих чисел, которые делятся на 3.

@ildwine · 22.02.2014, 21:56

Pascal

var
  s : real;
  a, i, k : integer;  
begin
  k := 0;
  i := 1;
  repeat
    write('введите ', i, ' число: ');
    readln(a);
    if (a <> 0) and (a mod 3 = 0) then
    begin
      s := s + a;
      inc(i);
      inc(k)
    end    
  until a = 0;
  writeln('среднее: ', (s / k):0:2)
end.

@Mandarink-a 0 / 0 / 0 Регистрация: 13.02.2014 Сообщений: 31
		1
	Вводить числа, пока не встретится 0. Найти среднее арифметическое этих чисел, которые делятся на 3 22.02.2014, 21:24. Показов 1830. Ответов 1 Метки нет (Все метки) Вводить числа, пока не встретится 0. Найти среднее арифметическое этих чисел, которые делятся на 3. 0

Опции темы

Вводить числа, пока не встретится 0. Найти среднее арифметическое этих чисел, которые делятся на 3

Решение