Информатика. решить в программе кумир: сумма 10 тысяч рублей положена в банк,при этом прирост составляет 5% годовых.составьте алгоритм,определяющий через какой промежуток времени первоначальная сумма увеличится в 2 раза.

алг

нач вещ s, s2, цел y

s : = 10000;

s2 : = 10000;

y : = 0;

 

нц пока s2 < s * 2

s2 : = s2 + (s2 / 100)*5;

y : = y + 1;

кц

 

вывод 'через ', y, ' лет.';

 

кон

Program pr; uses crt; var mas: array[1..1000, 1..1000] of integer; n,m,i,j,k: integer; begin writeln('введите размер матрицы n*m'); write('n = '); readln(n); write('m = '); readln(m); if (m> 1000) or (n> 1000) or (m< 1) or (n< 1) then    writeln('ошибка,  указанные  значения  выходят  за  пределы  матрицы')    else              begin          writeln('введите элементы матрицы');         k: =0;     for i: =1 to n do          for j: =1 to m do            begin              readln(mas[i,j]);                 if (mas[i,j] mod 2 = 0) then k: =k+1;             end;           writeln();           writeln('исходная матрица');         for i: =1 to n do          begin              for j: =1 to m do                  begin                    write(mas[i,j], ' ')                    end;               writeln();           end;             writeln();     writeln('количество четных элементов = ',k);           end; readln; end.