Напишите программу которая в последовательности натуральных чисел определяет среднее арифметическое чисел, не оканчивающихся на 3 и на 5. программа получает на вход последовательность натуральных чисел, заканчивающееся на 3 и на 5. количество чисел не превышает 1000. введённые числа не превышают 30000. программа должна вывести одно число- среднее арифметическое чисел, не оканчивающихся на 3 и на 5.точность выводимого числа(число знаков после запятой)не имеет значения пример работы: вводные данные: выходные данные: 30 45 25 20 0

for

примеры

(pascal)

for i : = 1 to 10 do

  s: =s+1;

 

(c#,c++)

for (int i=0; i< 10; i++) {

    s+=i;

}

 

(ruby)

for i in 1..10

  s=s+i

end

 

(vb, vba,

for i = 1 to 10

  s=s+i

next i

 

по умлчанию шагом счетчика является 1. обычно шаг счетчика можно менять фразой by или step by. хотя увы такое есть не во всех языках

 

(c#,c++)

for (int i=0; i< 10; i=i+2) {

    s+=i;

}

 

(vb, vba,

for i = 1 to 10 step by 2

  s=s+i

next i

 

например в паскале возможен только обратный отсчет

for i : = 10 downto 1 do

  s: =s+1;

 

еще for примечателен тем, что даже если конец меньше начала (в варианте увеличения счета), то цикл все равно пройдет один раз. правда не знаю ли под это правило языки из группы с

program symma;

  var a,b;

begin

  writeln('введите a'); readln (a);

    writeln('введите b'); readln (b);

  writeln(a+b);

  readln; {задержка, чтобы не убегала с экрана}

end.

 

можно взять еще одну переменную "с".

 

program symma1;

  var a,b,c;

begin

  writeln('введите a'); readln (a);

    writeln('введите b'); readln (b);

    c: =a+b;

  writeln(c);

  readln; {задержка, чтобы не убегала с экрана}

end.

 

 

удачи!