Войти Регистрация Спроси ai-bota

Напишите программу. дана последовательность чисел, количество чисел неизвестно, оканчивается 0. найти сумму и количество чисел, оканчивающихся на 7 и кратных 3.

Ответ:

yanasyperyanaco

07.10.2020 21:37

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

begin
var a:=ReadSeqIntegerWhile(t->t<>0).Where(t->(t mod 10=7) and (t mod 3=0))
.ToArray;
Writeln('Сумма ',a.Sum,', количество ',a.Count)
end.

Пример
33 -77 117 27 -15 0
Сумма 144, количество 2

0,0(0 оценок)

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

жасулан16

26.08.2022 10:14

В магазине было А компьютеров. Однажды приехали представители от трех фирм, и каждый купил по В компьютеров. Сколько компьютеров осталось после этого на складе? Формат...

mashaivedmed05

01.03.2020 00:00

Напишите инструкцию цикла, которая после выполнения напечатает 11 слов Сапсан ....

ВаНяЛЕТОвальцев

10.03.2020 20:29

1. Укажите операторы, используемые для ввода данных в Паскале. Да/нет read writeln readln write begin var 2. Расположите строки так, чтобы получилась программа Symma,...

violapi

25.08.2021 03:33

Как называется типизация, при которой тип данных в переменной может автоматически изменяться в ходе исполнения программы? Составьте слово из букв: МЯДИАИКСНЕА(питон)...

dog126

30.08.2021 15:34

С ИНФОРМАТИКОЙ Напишите наибольшее целое число x, для которого истинно высказывание: НЕ (X чётное) И НЕ (X = 11). Напишите наибольшее натуральное число x, для которого...

lora1981

29.02.2020 03:03

Самый крупный на земле алмаз с названием «Куллинан» весил 3106 карат (в 1 грамме 5 карат). Онбыл найден в 1905 году. Следующий по весу алмаз -«Эксцельсиор», найден в...

Mишутка9887

21.11.2021 22:38

Какое количество данных может находиться в данном массиве var ch: array[4..16] of char? 14 целых чисел 13 букв 13 целых чисел 12 дробных чисел...

katevyb

09.09.2021 13:43

Информатика составьте программу рисования фигуры, изображенной на рисунке, таким образом, чтобы во время рисования перо не отрывалось от бумаги, и ни одна линия не проводилась...

Олисочка

26.05.2022 05:22

Как решить возраст матери и дочери вместе -48 лет. мать старше дочери на 24 года сколько лет каждой...

A11002030999

26.05.2022 05:22

Втреугольнике одна сторона 36 см ,другая на 4 см меньше,а третья на х см больше первой стороны. найдите периметр треугольника. составьте выражение для решения и найдите...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку