Оператор цикла с условием

 ПРЕЗЕНТАЦИЯ К УРОКУ

while условие do команды;

>

<

=

<>

>=

<=

Формат команды «While»:

while условие do оператор; 

При выполнении команды «While» сначала проверяется условие. Если оно истинно, то выполняются команды, входящие в тело цикла, затем условие проверяется снова, и т. д. Таким образом, команды цикла выполняются до тех пор, пока условие истинно. Если условие ложно, то цикл заканчивается.

Задание. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл ноль. Найдите сумму введённых чисел.

СОСТАВЛЕНИЕ ПРОГРАММ

Задание 1. Запустите PascalAbcNet

Задание 2. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл ноль. Найдите сумму введённых чисел.

VAR X,S:INTEGER;

BEGIN

 WRITELN('ВВОДИТЕ ЧИСЛА. ПОСЛЕ ЧИСЛА НАЖИМАЙТЕ КЛАВИШУ ENTER.ВВОД ЗАКОНЧИТСЯ ПОСЛЕ ТОГО, КАК ВЫ ВВЕДЁТЕ 0');

Задание 3. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл 21. Найдите сумму введённых чисел.

Задание 4. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь ввёл любое отрицательное число. 

Задание 5. С клавиатуры вводится последовательность чисел. Ввод заканчивается, когда пользователь любое отрицательное число. Сколько чисел успели ввеcти? 

Подсказка.  Как изменяется количество чисел при каждом введённом числе?