Question

Напишите код на ПАСКАЛЕ по этим блок схемам, пожалуйста.
Желательно обе схемы, но хотя бы одну.

Answer 1

Первая:

var i,n,p:integer;

begin

 p:=1;

 readln(n);

 for i:=10 to n do begin

   p:=p*(i+2);

   writeln(p);

 end;

end.

Вторая:

var i,k:integer;

begin

 k:=0;

 readln(i);

 while (i<15) do begin

   k:=k+1;

   i:=i+1;

 end;

end.