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

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

- Помощь студентам (http://www.tehnari.ru/f41/)

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

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, время: 11:47.