1.напишите программу, которая в последовательности натуральных чисел находит кол-во чисел кратных 8 из интервала [121,400] вход: программа получает на вход последовательность натуральных чисел, заканчивающиеся на 0. кол-во чисел не превышает 1000, а сами числа не превышают 30000. выход: программа должна вывести одно число-кол-во трехзначных чисел кратных 8 и принадлежащих интервалу [121,400] 2. напишите программу, которая в последовательности находит сумму чисел, не кратных 8 и оканчивающееся на 2. вход: программа получает на вход кол-во чисел, а затем сами числа. количество не превышает 1000, а сами числа не превышают 30000. выход: программа должна вывести одно число- сумму чисел, не кратных 8 и оканчивающихся на 2. pascalabc.net для 8го класса с незамысловатым решением

274

317

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

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

Rayanachechenka

Информатика

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

1. чтобы найти количество чисел, кратных восьми, на заданном интервале [a; b], надо найти на этом интервале ближайшее к a число и потом прибавлять к нему по восемь, пока не пройдем весь интервал, считая, сколько чисел прошли. но это глуповатый способ. он просто и бездумно программируется, но как считали раньше, когда компьютеров не было? определим остаток от деления а на 8. если он нулевой, то a - первое из найденных чисел. остаток от деления 121 на 8 равен 1, т.е. нам не повезло. тогда прибавим к значению а число 8 и вычтем найденный остаток.121+8-1=128. это и есть наше первое число. сужаем интервал [128; 400]. чтобы найти, сколько на нем чисел, кратных 8, надо разделить нацело 400-128 на 8 и прибавляем к результату единицу. получаем 35 - это и есть ответ. программу составим универсальную, которая будет находить на интервале [a; b] количество чисел, кратных m. pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! begin var (a,b): =readinteger2('введите через пробел границы интервала: '); var m: =readinteger('укажите число для поиска кратных ему: '); var r: =a mod m; if r> 0 then a: =a+8-r; writeln('количество чисел равно ',(b-a) div m +1) end. пример введите через пробел границы интервала: 121 400 укажите число для поиска кратных ему: 8 количество чисел равно 35 2. в этой все совсем просто. читаем очередное число p, находим остаток от деления p на восемь. если он ненулевой, проверяем, чтобы остаток от деления p на 10 был равен двум. если и это верно, добавляем p к накапливаемой сумме s. так поступаем n раз. begin var n: =readinteger('n='); var s: =0; var p: integer; for var i: =1 to n do begin read(p); if p mod 8 < > 0 then if p mod 10 = 2 then s: =s+p end; writeln('сумма отобранных чисел равна ',s) end. пример n= 8 127 32 222 45 80 832 702 29 сумма отобранных чисел равна 924

cheacher

Информатика

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

Uses crt; const n=40; var a: array[1..n] of integer; i: integer; pr: longint; begin randomize; pr: =1; for i: =1 to n do begin a[i]: =random(300); write(a[i]: 4); if (i mod 2< > 0) and (a[i] mod 3=0) then pr: =pr*a[i]; end; writeln(pr); end.

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

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

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

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

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

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

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

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

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

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