deniskim01
06.08.2022 00:57

Напишите программу которая в последовательности натуральных чисел определяет количество чисел кратных 6. Программа получает на вход количество чисел в последовательности а затем сами числа. В последовательности всегда имеется число кратное 6. в паскале ​

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
саша3421342
13.10.2020 11:40

var

n, i, a, z: integer;

begin

z := 0;

read(n);

for i := 1 to n do

begin

read(a);

if a mod 6 = 0 then

z := z + 1

end;

writeln(z);

end.

0,0(0 оценок)
Ответ:
RetoGero
13.10.2020 11:40

// PascalABC.NET

begin

 var n := ReadInteger;

 ReadSeqInteger(n).Count(p -> p mod 6 = 0).Print

end.

0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота