1. ЦИКЛ while a. Вывести на экран числа 2,4,8,16,32,… ,1024 (*2) b. Вывести на экран числа…

While: Program TaskA; Var i: Integer; Begini: =1; While i < 1024 DoBegini: =i*2; Write (i, '); End; End.Program TaskB; Var i, a: Integer; Begini: =1; While i < 21 DoBegina: =a+i; i: =i+1; Write (a, '); End; End.Program TaskC; Var i, sum: Integer; BeginWhile sum < 100 DoBegini: =i+1; sum: =sum+i; Write (i, '); End; End.Random: Program TaskA; BeginRandomize; WriteLn (Random); End.Program TaskB; BeginRandomize; WriteLn (Random (10)+1); End.Program TaskC; BeginRandomize; WriteLn (Random (20+1) — 10); End.Program TaskD; BeginRandomize; WriteLn (Random (51)*2); End.Program TaskE; BeginRandomize; WriteLn (Random (50)*2+1); End.