Определить количество членов послдовательности а1, а2 имеющих четные номера и являющимися чеными числами

Question

Информатика

Доняха

8 декабря, 02:22

Определить количество членов послдовательности а1, а2 имеющих четные номера и являющимися чеными числами

+4

Ответы (1)

Знаете ответ на вопрос?

Крестя · Answer 1

Var A, i, k:integer;

Begin

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

ReadLn (i) ;;

Write ('Введите саму последовательность: ') ;

k:=0;

For i: = 1 to i do

Begin

Read (A) ;

if (i mod 2 = 0) and (A mod 2 = 0) then k:=k+1;

End;

WriteLn ('k = ', k) ;

End.