Паскаль напишите программу, которая в последовательности - вопрос №10428263 от dimakovelko 24.05.2020 05:27

Question

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

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