Составить алгоритм решения с алгоритмического языка pascal и с блок-схем, используя конструкцию циклического алгоритма. подсчитать площади десяти кругов с радиусами от 1 см с шагом 2 см и вывести значения площадей на экран.

program qq;

uses crt;

const n=10;

pi: =3.14;

var r,s,i: integer;

begin

clrscr;

for i: =1 to n do

begin

s: =sqr(2*i-1)*3.14;

writeln(s);

end;

readln

end.

Var       amoebas, t: integer; begin       amoebas : = 1;       t : = 0;             repeat               t : = t + 3;               amoebas : = amoebas * 2;                       writeln(amoebas, ' амеб через ', t, ' часа');           until t > = 24; end.

Var       amoebas, t: integer; begin       amoebas : = 1;       t : = 0;             repeat               t : = t + 3;               amoebas : = amoebas * 2;                       writeln(amoebas, ' амеб через ', t, ' часа');           until t > = 24; end.