Решение задач с использованием операторов цикла. Гражданин 1 марта открыл счет в банке, вложив 1000 руб. Через каждый месяц размер вклада увеличивается на 2% от имеющейся суммы. Определить, через сколько месяцев размер вклада повысит 1200 руб.;

Дискретность. Процесс решения задачи должен быть разбит на последовательность отдельных шагов-команд, которые выполняются одна за другой. Только после завершения одной команды начинается выполнение следующей.

Понятность. Алгоритм должен содержать только те команды, которые известны исполнителю.

Детерминированность. Каждый шаг и переход от шага к шагу должны быть точно определены, чтобы его мог выполнить любой другой человек или механическое устройство. У исполнителя нет возможности принимать самостоятельное решение (алгоритм исполняется формально).

Конечность. Обычно предполагают, что алгоритм заканчивает работу за конечное число шагов. Результат работы алгоритма также должен быть получен за конечное время. Можно расширить понятие алгоритма до понятия процесса, который по различным каналам получает данные, выводит данные и потенциально может не заканчивать свою работу.

Массовость. Алгоритм должен решать не одну частную задачу, а класс задач. Не имеет смысла строить алгоритм нахождения наибольшего общего делителя только для чисел 10 и 15.

Объяснение:

1)

Var
A:integer;
S:real;
Begin
{Первый
S:=0;
For A:= 1 to 50 do
    S:=S+1/A;
WriteLn('S = ',S);
{Второй
S:=0;
A:=1;
Repeat
S:=S+1/A;
A:=A+1;
Until A>50;
WriteLn('S = ',S);
{Третий
S:=0;
A:=1;
While A<=50 do
   Begin
   S:=S+1/A;
   A:=A+1;
   End;
WriteLn('S = ',S)
End.

Var
x:real;
Begin
x:=-3;
Repeat
WriteLn('y(',x,') = ',((3*x*x-2)/4):0:3);
x:=x+0.2
Until x>3.2;
End.

Var
A:real;
k,i:integer;
Begin
k:=0;
WriteLn('Введите десять чисел');
For i:= 1 to 10 do
    Begin
    Read(A);
    if A<0 then k:=k+1
    End;
WriteLn('k = ',k)
End.