Паскаль напишите программу, которая в последовательности - вопрос №10428038 от Софія133 04.03.2020 18:43

Question

Информатика: Паскаль напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. программа получает на вход количество чисел в последовательности, а затем сами числа.

Софія133 · Answer

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....