Регистрация
LikkaSchool205
07.01.2023 11:38
Информатика
Есть ответ 👍

Комьпютердегі негізгі арекет​

296
326
Посмотреть ответы 2

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

vovamakarevich
vovamakarevich
4,7(14 оценок)

Что?

Объяснение:

А есть вопрос на русском?

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.

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