Question

ПОМОГИТЕ ПОЖАЛУЙСТА ОЧЕНЬ НУЖНО​

Answer 1

Ответ:

(i mod 3 = 0) and (a mod 2 <> 0)

Объяснение:

var i, c, a: integer;

begin

c:=0;

i:=0;

repeat

Write('Введите число последовательности '); readln (a);

if (i mod 3 = 0) and (a mod 2 <> 0) then begin

c:=c+a;

writeln('i= ',i, ' c=',c)

end;

i:=i+1;

until a=0;

writeln('Сумма нечётных чисел последовательности с номерами кратными 3 ',c)

end.

добавили условие нечётности вводимых чисел