Lera-Valera
Ученик
- Регистрация
- 19 Дек 2012
- Сообщения
- 1
- Реакции
- 0
- Баллы
- 0
Помогите, пожалуйста, составить блок-схему алгоритма программы
Program ABC;
Const n= 20;
Var c,b,i: integer;
[FONT="]A: array[1..n] of integer;[/FONT]
[FONT="]Begin[/FONT]
[FONT="]i:=1;[/FONT]
[FONT="]a: = 2;[/FONT]
[FONT="]readln(b);[/FONT]
[FONT="]repeat[/FONT]
[FONT="]a[i+1]:=a*2;[/FONT]
[FONT="]i:= i+1;[/FONT]
[FONT="]untila>b;[/FONT]
[FONT="]for c:=1 to i-1 do writeln(a[c]);[/FONT]
[FONT="]end[/FONT][FONT="].[/FONT]
Program ABC;
Const n= 20;
Var c,b,i: integer;
[FONT="]A: array[1..n] of integer;[/FONT]
[FONT="]Begin[/FONT]
[FONT="]i:=1;[/FONT]
[FONT="]a: = 2;[/FONT]
[FONT="]readln(b);[/FONT]
[FONT="]repeat[/FONT]
[FONT="]a[i+1]:=a*2;[/FONT]
[FONT="]i:= i+1;[/FONT]
[FONT="]untila>b;[/FONT]
[FONT="]for c:=1 to i-1 do writeln(a[c]);[/FONT]
[FONT="]end[/FONT][FONT="].[/FONT]