1. Информатика
  2. Напишите программу которая в

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

kriton558 kriton558    3   18.04.2020 23:14    1

Ответы
Belay28 Belay28  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.

ПОКАЗАТЬ ОТВЕТЫ
stazagreen stazagreen  13.10.2020 11:40

// PascalABC.NET

begin

 var n := ReadInteger;

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
генадийпетрович генадийпетрович  13.04.2020 17:43
Задание с кратким ответом. Запишите формулы: а) сложения чисел, хранящихся в ячейках А1 и В1 б) вычитания чисел, хранящихся в ячейках А3 и Б5 в) умножения чисел, хранящихся в ячейках...
ЯЯЯ1118526 ЯЯЯ1118526  30.01.2022 01:44
Дан квадрат со сторонами Абсд найдите площадь квадрата если известно что сторона а равна 10 см...
g3force g3force  30.01.2022 01:57
С#. Дан двумерный массив. Определить: - количество ненулевых элементов второго столбца массива, больших 15; - среднее арифметическое нечетных элементов пятой строки; - среднее арифметическое...
staritsckymax staritsckymax  30.01.2022 02:07
1) Які властивості має клітинка електронної книги? 2) Які типии даних використовують в електронних таблицях? 3) Через яку вкладку відбувається форматування текстових і числових даних?...
MisterPOR MisterPOR  30.01.2022 02:11
Информатика:как работать со списками...
xxsPiRiTxx xxsPiRiTxx  30.01.2022 02:25
Блок схема. создать цикл выводящий от 1 до 100...
Ivangggg Ivangggg  30.01.2022 02:28
Яких значень набудуть змінні j та i після обчислення для int j, i = 2 a) j = i++ + ++ib) j = ++i + ++ic) j = i++ + ++id) j = ++i + i--...
Алижан025 Алижан025  30.01.2022 02:30
Пользователь вводит радиус колеса. Создай программу, которая подсчитает, какое расстояние проходит колесо за 1 оборот, за N оборотов !...
dimaprokopovewp06mw2 dimaprokopovewp06mw2  30.01.2022 02:32
1. Как пользоваться строковыми командами write() и print() есть ли отличия2. В чем разница между использованием строковых команд read() и input()?3. Обязательно используйте close()...
daniilznanija0 daniilznanija0  30.01.2022 02:37
Даны два действительных числа X и Y, не равные друг другу. Заменить меньшее из этих чисел половиной их суммы, а большее – их удвоенным произведением. на python...

Популярные вопросы