Есть ответ 👍

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

167
252
Посмотреть ответы 2

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


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.

Champagne
4,4(72 оценок)

ответ:

1 python, css+, html,

2 текстовый и графический редактор, системы с базами, тобличные квадраты

3bios

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