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

klarabuhantsova klarabuhantsova    2   21.01.2020 00:31    3

Ответы
Myrasami Myrasami  11.10.2020 02:04

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.

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика