1) Найти сумму последовательности чисел от 4 до 9 Предоставить два решения
задачи: с циклов While и Repeat … Until.
2) Напишите программу, которая в последовательности натуральных чисел
определяет среднее арифметическое введенных чисел до ввода числа -1
Программа получает на вход натуральные числа, введенные с клавиатуры. Количество
введенных чисел не известно.
Последовательность чисел заканчивается числом -1
(-1 ─ признак окончания ввода, не входит в последовательность).
Предоставить два решения задачи: с циклов While и Repeat … Until.
3) Напишите программу, которая в последовательности из 15-ти введенных с
клавиатуры чисел определяет их произведение. Предоставить два решения задачи: с циклов While и Repeat … Until.
мне это надо в тетрадь

                                                          профессия  на открытом воздухе       в помещениях     в небольших         в небольших                                                                         замкнутых             условиях                                                                          пространство.       труда

Пусть a, b, c − число пассажиров каждой из маршруток. тогда, нужно во-первых: выяснить можно ли поделить пассажиров поровну между тремя маршрутками; во-вторых: если первое утверждение верно, то k : = (a + b + c) div 3; − число пассажиров, которое должно приходиться на 1 маршрутку sum : = 0; − счётчик пересаживаемых пассажиров da : = a - k; if da > 0 then sum : = sum + da; db : = b - k; if db > 0 then sum : = sum + db; dc : = c - k; if dc > 0 then sum : = sum + dc; − если разница числа пассажиров и количества, которое должно быть в маршрутке, число положительное, значит столько пассажиров из данной маршрутки необходимо пересадить. что то типа дальше сама