Регистрация
Liza241437Елизабет
09.01.2020 00:11
Информатика
Есть ответ 👍

не могурешить сможете решить​

290
343
Посмотреть ответы 1

Ответы на вопрос:

zaharovivan150
zaharovivan150
4,8(37 оценок)

var

n,count,i: integer;

begin

count: =0;

readln(n);

for i: =1 to n do

  begin

    readln(n);

    if (n mod 4 = 0) and (n mod 7 < > 0) then

      inc(count);

  end;

writeln(count);

end.

Популярно: Информатика