Решение задач с циклом

Решить задачу.
Найти сумму положительных чисел, меньших 50.
Рассмотрим вариант для цикла с параметром (цикл ДЛЯ)
program a1;
var
i, a, s:integer; (i – параметр цикла, a – исходное число, s – сумма) – все целого типа
begin начало программы
s:=0; в ячейку с именем s записываем 0
for i:=1 to 10 do вводим числа с по 10
begin начало тела цикла
readln(a); вводим число а с клавиатуры
if (a>0) and (a<50) then если условие выполняется, то тело цикла
s:=s+a прибавляем в ячейку s число а
end; конец тела цикла
write('s=',s:5) выводим результат на экран
end. конец программы

Рассмотрим вариант для цикла с предусловием (цикл ПОКА)
program a1;
var
i, a, s:integer; (i – параметр цикла, a – исходное число, s – сумма) – все целого типа
begin начало программы
s:=0; i:=1; в ячейку с именем s записываем 0; счетчику шагов присваиваем начальное значение =1.
while i<=10 do пока значение счетчика не будет = 10 – это условие окончания
begin начало тела цикла работы цикла
readln(a); вводим число а с клавиатуры
if (a>0) and (a<50) then если условие выполняется, то
begin открываем операторные скобки
s:=s+a; прибавляем в ячейку s число а
i:=i+1 переходим на следующий шаг
end закрываем операторные скобки

else если условие не выполняется, то
i:=i+1 переходим на следующий шаг, добавляя в счетчик 1.
end; конец тела цикла
write('s=',s:5) выводим результат на экран
end. конец программы

Рассмотрим вариант для цикла с постусловием (цикл ДО)
program a1;
var
i, a, s:integer; (i – параметр цикла, a – исходное число, s – сумма) – все целого типа
begin начало программы
s:=0; i:=1; в ячейку с именем s записываем 0; счетчику шагов присваиваем начальное значение =1.
repeat повторять
begin начало тела цикла
readln(a); вводим число а с клавиатуры
if (a>0) and (a<50) then если условие выполняется, то
begin открываем операторные скобки
s:=s+a; прибавляем в ячейку s число а
i:=i+1 переходим на следующий шаг
end закрываем операторные скобки

else если условие не выполняется, то
i:=i+1 переходим на следующий шаг, добавляя в счетчик 1.
end; конец тела цикла
until i>10; пока значение счетчика не будет больше 10 – это условие окончания работы цикла
write('s=',s:5) выводим результат на экран
end. конец программы