Найти сумму чисел с четным порядковым номером

@Никус · Регистрация: 08.11.2015

вводить числа до тех пор пока очередное не окажется равно 0,найти сумму чисел с четным порядковым номером

@ZX Spectrum-128 · 26.11.2015, 20:59

Pascal

{вводить числа до тех пор пока очередное не окажется равно 0,найти сумму чисел 
с четным порядковым номером }
var
  sum, x: real;
  i: integer;
 
begin
  i := 1;
  sum := 0;
  repeat
    readln(x);
    if not odd(i) then
      sum := sum + x;
    inc(i);
  until (x = 0);
  writeln(sum);
end.

@Никус 0 / 0 / 0 Регистрация: 08.11.2015 Сообщений: 4
		1
	Найти сумму чисел с четным порядковым номером 26.11.2015, 20:23. Показов 1153. Ответов 1 Метки нет (Все метки) вводить числа до тех пор пока очередное не окажется равно 0,найти сумму чисел с четным порядковым номером 0

Опции темы

Найти сумму чисел с четным порядковым номером

Решение