Составить блок-схему к коду.

@SovAr · Регистрация: 11.01.2013

Author24 — интернет-сервис помощи студентам

Pascal

var n:integer;
x:array [0..10] of real;
begin
     clrscr;
     x[0]:=1;
     for n:=1 to 10 do
         begin
              writeln('x[',n-1,']=',x[n-1]);
              x[n]:=((n+1)/3)*(x[n-1]+(x[n-1]/2));
         end;
     write('x[10]=',x[10]);
end.

@19enf · 11.01.2013, 23:13

)

@19enf 6 / 6 / 0 Регистрация: 23.11.2012 Сообщений: 50
	11.01.2013, 23:13	2
	) Изображения 0

Опции темы