Напишите программу, которая в последовательности натуральных чисел определяет сумму и количество трёхзначных чисел, кратных 4. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 — признак окончания ввода, не входит в последовательность).

272

433

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

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

Поповодутогочтобы

Информатика

4,4(16 оценок)

var

i, count, number: integer;

begin

count := 0;

i := 0;

writeln('Введите последовательность чисел');

repeat

readln(number);

if (number >= 100) and (number <= 999) and (number mod 4 = 0) then

count := count + 1;

i := i + 1

until (number = 0) or (i >= 1000);

writeln('Кол-во 3значных чисел кратных 4 =', count);

end.

Подробнее - на -

Объяснение:

Rake4

Информатика

4,7(96 оценок)

Pascalabc.net const n=10; var a: array[1..n,1..n] of integer; i,j,kp,kq: integer; p,q: array of integer; // динамические массивы begin randomize; writeln('исходный массив из случайных чисел'); kp: =0; kq: =0; setlength(p,n*n); setlength(q,n*n); for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random(101)-50; // диапазон [-50; 50] write(a[i,j]: 4); if a[i,j]> 0 then begin p[kp]: =a[i,j]; inc(kp) end else if a[i,j]< 0 then begin q[kq]: =a[i,j]; inc(kq) end end; writeln end; setlength(p,kp); setlength(q,kq); // отрегулировали по заполнению writeln('положительные'); for i: =0 to kp-1 do write(p[i],' '); writeln; writeln('отрицательные'); for i: =0 to kq-1 do write(q[i],' '); writeln end. пример исходный массив из случайных чисел 46 47 -8 -32 36 41 -49 -15 25 -33 18 15 1 15 21 43 30 41 -15 -21 -48 15 -5 17 19 30 -38 0 10 11 -16 10 48 -30 -40 -49 -48 24 18 24 47 45 50 44 -3 -15 19 29 -13 38 -23 3 -23 19 19 -19 1 26 0 -45 28 1 26 -36 34 -43 18 -19 4 19 41 -45 -27 12 -18 -43 16 1 -31 -17 -39 -16 -37 22 -17 31 -17 -22 1 30 0 -24 -27 12 46 -4 -32 36 -40 -11 положительные 46 47 36 41 25 18 15 1 15 21 43 30 41 15 17 19 30 10 11 10 48 24 18 24 47 45 50 44 19 29 38 3 19 19 1 26 28 1 26 34 18 4 19 41 12 16 1 22 31 1 30 12 46 36 отрицательные -8 -32 -49 -15 -33 -15 -21 -48 -5 -38 -16 -30 -40 -49 -48 -3 -15 -13 -23 -23 -19 -45 -36 -43 -19 -45 -27 -18 -43 -31 -17 -39 -16 -37 -17 -17 -22 -24 -27 -4 -32 -40 -11

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

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

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

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.