Паскаль напишите программу, которая в последовательности - вопрос №10428940 от IgnatBakaev 10.07.2020 06:58

Question

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

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