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

Question

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

Помогите!!!!
Напишите программу,которая в последовательности натуральных чисел определяет количество трехзначных чисел,кратных 4.Программка получает на вход естественные числа,количество введенных чисел,безызвестно,последовательность чисел кончается числом 0 (0-признак окончания ввода,не заходит в последовательность).Количество чисел не превосходит 1000.Введенные числа не превосходят 30000.Программка обязана вывести одно число:количество трехзначных чисел,кратных 4.
(Паскаль)

Задать свой вопрос

Олежка Хренин
Информатика
2019-02-27 01:51:58
0
2

2 ответа

, оставишь ответ?

Имя:*

E-Mail:

Похожие вопросы

Составьте текст-описание quot;Няша Дашаquot;

Сказки Шарля Перро являются обработанными сказаниями, которые народ передавал из уст

What does the fox say 1)there is...........in the house 2)is there...........n

с 2 участков земли общей площадью 20 метров квадратных собрали урожай

Помогите пожалуйста!-Лляне полотно ,полотно снгу,потк води потк машин ,глибина

Розповдь про поширенсть карбонових кислот у природ.Пару речень.

задайте общий , альиернативный , вопрос к подлежайщему ,к предложению He

переведите пожалуйста на российский

1)Длина первой стороны теругольника 18 см,2-ой-в 3 раза меньше,а длина третьей

Основание AD трапеции ABCD с прямым углом А одинаково 12 см,

Оксана Вижанская · Answer 1 · 2019-02-27 02:01:37+3:00

// PascalABC.NET 3.2, сборка 1411 от 23.03.2017
// Внимание! Если программка не работает, обновите версию!

begin
Write(ReadSeqIntegerWhile(k-gt;klt;gt;0).
Where(k-gt;(kgt;99) and (klt;1000) and (k mod 4=0)).Count)
end.

Пример
45 244 1043 463 500 241 18 44 0
2

Алиса Кнотикова · Answer 2 · 2019-02-27 02:09:38+3:00

Var A,k:integer;
Begin
k:=0;
Repeat
Read(A);
if (Agt;99)and(Alt;1000)and(A mod 4 = 0) then k:=k+1
Until A = 0;
WriteLn(k);
End.

О проекте

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

Добро пожаловать!