19.12.2012, 19:17
|
#1 (permalink)
|
|
Новичок
Регистрация: 19.12.2012
Сообщений: 1
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Помогите, пожалуйста, составить блок-схему алгоритма программы
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.
|
|
|