Question

На вход в программу поступает 10 чисел. Программа ищет среди них те, которые являются четными, превышают 2 и не превышают 12. Ответом служит количество таких элементов. Если в программе нет таких чисел, то выводится ответ 'NO'.

Answer 1

Ответ:

Var n,k,i:integer;

Begin

K:=0;

For i:=1 to 10 do begin

Read(n);

If (n>2)and(n<12)and(n mod 2 =0) then

K:=k+1;

End;

If k=0 then write('NO')

Else write(k)

End.

Объяснение: