Технический форум - Помогите, пожалуйста, составить блок-схему алгоритма программы

Технический форум (http://www.tehnari.ru/index.php)

- Помощь студентам (http://www.tehnari.ru/forumdisplay.php?f=41)

- - Помогите, пожалуйста, составить блок-схему алгоритма программы (http://www.tehnari.ru/showthread.php?t=82565)

Lera-Valera

19.12.2012 19:17

Помогите, пожалуйста, составить блок-схему алгоритма программы

Program ABC;
Const n= 20;
Var c,b,i: integer;
A: array[1..n] of integer;
Begin
i:=1;
a[i]: = 2;
readln(b);
repeat
a[i+1]:=a[i]*2;
i:= i+1;
untila[i]>b;
for c:=1 to i-1 do writeln(a[c]);
end.

Часовой пояс GMT +4, время: 00:09.