Цикл с предусловием while.

Дистанционное занятие 15.04-16.04. 2020

Выполнить задание до 22:00 16.04.2020

Продолжаем изучать цикл while. Для задач написать программу и нарисовать блок-схему.

Учителю отправить письмо . Тема письма - ДОТ2 информатика 8

либо
с программой, скриншотом программы и блок-схемой:
Имя программы - pas_while5_familia.pas
Имя скриншота с текстом и результатом программы - s_while5_familia.png


либо
с фотографиями программы и блок-схемой в тетради.

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;

Если возникают вопросы или что-то не получается - пишите!