ЛЕГКАЯ ЗАДАЧА НА ПАСКАЛЕ (Я ТУПАЯ)
))))
Тема:цикличные алгоритмы.
Даны n чисел,найти кол-во кратных 2 и 5;
Найти кол-во кратных 3,но чтобы оно не было четным;
Все 2 условия в одной программе

Предыдущий
вопрос Следующий
вопрос

program CountMultiples;
var
n, i, count2, count5, count3: integer;
begin
count2 := 0;
count5 := 0;
count3 := 0;

writeln('Введите количество чисел: ');
readln(n);

for i := 1 to n do
begin
writeln('Введите число ', i, ': ');
readln(num);

if num mod 2 = 0 then
count2 := count2 + 1;
if num mod 5 = 0 then
count5 := count5 + 1;
if (num mod 3 = 0) and (num mod 2 <> 0) then
count3 := count3 + 1;

end;

writeln('Количество чисел, кратных 2: ', count2);
writeln('Количество чисел, кратных 5: ', count5);
writeln('Количество чисел, кратных 3, но не четных: ', count3);
end.