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

278

362

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

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

mery77

Информатика

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

Var s,n: integer; begin repeat readln(n); if (n mod 3=0) and (n< 10) then s: =s+n; until n=0; writeln('s=',s); end.

AndaDi

Информатика

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

// pascalabc.net 3.1, сборка 1204 от 24.03.2016 begin var a: =seqrandom(readinteger('n=',20) .select(i-> real(; a.println; var b: =a[0]*a.skip(1).where(x-> x> 0).aggregate(1.0,(p,x)-> p*x); writeln(b); end. тестовое решение: n= 15 14 17 5 -1 9 -18 2 3 -20 5 -10 0 4 -1 -8 1285200 пояснения по каждому оператору 1. запрашивается количество элементов в последовательности n, генерируется последовательность из n целых чисел в диапазоне от -20 до 20, затем элементы последовательности преобразуются в вещественное представление и образуют динамический массив а. 2. элементы массива а выводятся на экран. 3. первый элемент массива умножается на произведение остальных положительных элементов и результат присваивается переменной b. 4. значение переменной b выводится на экран. в целях небольшого предполагается, что n> 1 и что среди элементов массива, за исключением первого, имеется хотя бы один положительный элемент. это связано с тем, что в отсутствует описание действий в случае, если вышеописанное предположение окажется неверным. переход к вещественному представлению чисел связан с обходом переполнения разрядной сетки при целочисленном умножении для больших значений n.

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

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

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

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

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

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

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

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

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

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