Регистрация
alobatsevi4
27.06.2021 02:28
Информатика
Есть ответ 👍

Напишите программу, которая в последовательности целых чисел определяет количество четных чисел кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30000. Программа должна вывести одно число: количество четных чисел кратных 7​

217
292
Посмотреть ответы 2

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

KatherinePirs
KatherinePirs
4,4(53 оценок)

var

n, k, i, a: Integer;

begin

readln(n);

if n > 1000 then begin

writeln('False');

exit;

end;

k:=0;

for i := 1 to n do

begin

readln(a);

if (a <= 30000) and (a>=-30000) and (a mod 7 = 0) and (a mod 2 = 0)  

then begin

k:=k+1;

end;

end;

writeln(k);

end.

7Оля8
7Оля8
4,7(56 оценок)

Відповідь:

length (S)

Пояснення:

Где length сама функция для определения количества символов, а S аргумент данной функции

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