Решите информатику! Язык Паскаль. Надо написать программу.
WHILE5

Вычислить сумму 10-ти четных чисел начиная с 14, используя цикл while (т.е. 14 + 16 + 18 ... - всего 10 чисел).

Подсказка: для того, чтобы узнать, является ли число четным, надо узнать его остаток от деления на 2.

Подсказка2:

В while5 надо написать цикл. Требуется вс переменная, с которой можно будет подсчитать сумму четных чисел (SUM). Изначально SUM = 0.

Начальное значение для переменной i должно быть равно 14.

Далее начинается цикл (while (i < ?) do) //подобрать число, чтобы действительно складывалось ровно 10 четных чисел:
в цикле проверяем, является ли текущее значение i - четным (if (i mod 2 = 0) then)
если да, то увеличиваем значение переменной SUM - прибавляем к переменной суммы четное число (SUM := SUM + i)
если нет, то ничего не делаем.
Переходим к следующему значению i (i := i + 1)
На этом цикл заканчивается.

После цикла нужно вывести значение SUM.

*В данном случае SUM - накопляемая переменная. Изначально сумма равна 0, с каждым шагом цикла значение суммы увеличивается на четное число. Сумма накапливается.
**Есть второй если придумать на какое число нужно каждый раз изменять Значение i , то можно обойтись без проверки на четность.

WHILE6

Вычислить произведение 5-ти нечетных чисел начиная с 7, используя цикл while (т.е. 7*9*... - всего 5 чисел).

Для желающих:

WHILE7

Ввести с клавиатуры 7 чисел. Сосчитать количество четных чисел в последовательности.

Т.е. с клавиатуры вводится последовательность 3 7 5 4 9 10 24
В результате программа должна вывести: количество четных чисел = 3.

Подсказка:
внутри цикла while должна располагаться команда read(a), которая позволяет считать значение переменной с клавиатуры. Эта команда будет повторяться столько раз, сколько раз будет повторяться тело цикла. Пример, как это должно выглядеть:

...
while (условие) do
begin
read(a);
... //необходимые действия для подсчета нечетного числа
end;

Лилюсечка    2   16.04.2020 12:55    0