Циклические операции

условию.
Для организации цикла можно использовать конструкцию ветвления c с

безусловным переходом GoTo, но лучше использовать специальные операторы цикла.
…
X:=0;
A1: x:=x+1;
Writeln (x);
If x<10 then goto a1;

Do 2) For I:= In to Ik

Downto <Тело цикла>

S= 1+2+3+4+… +N На примере этой задачи демонстрируется использование всех трех

типов циклов.

(‘N=‘); Read (N);
a:=1; S:=0;

While a<=N Do
Begin
S:=S+a;
a:=a+1
End;
WriteLn (‘Pervaya summa=‘ , S);

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

Repeat

S:=S+a;
a:=a+1
Until a>N;
WriteLn (‘Vtoraya summa=‘ , S) ;

S:=0;
For a:=1 To N Do
S:=S+a;
WriteLn (‘Tretiya summa=’ , S)
End.

Цикл с постусловием

Цикл с параметром

лет можно накопить сумму 700 тыс. руб на покупку автомобиля,

если каждый месяц вносить в банк 30 тыс руб, а банк выплачивает 12% годовых?
Найти значение 115-ого члена прогрессии 100, 95, 90, 85,…
Начав тренировки, спортсмен в первый день пробежал 10 км. Каждый день он увеличивал норму на 10% нормы предыдущего дня. На какой день тренировок он будет пробегать 20 км?
200-ый член арифметической прогрессии с разностью 2 равен 2000. Найти значение 10-го члена.
Напечатать столбик таблицы умножения чисел от 1 до 9 на 13.

было бы в настоящее время состояние их счета, если бы

эти 24 доллара были помещены тогда в банк под 6% годового дохода?
Одноклеточная амеба каждые 3 часа делится на 2 клетки. Определить, сколько амеб будет через 3, 6, 9, 12,… 24 часа.
Замените буквы цифрами так, чтобы соотношение оказалось верным (одинаковым буквам соответствуют одинаковые цифры, разным - разные) ХРУСТ⋅ГРОХОТ= РРРРРРРРРРР.