1. Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:

a:=1; b:=1; while a>=b do b:=b+a;

a:=a+1; write(b*a)

2. Сколько раз будет исполнен Цикл в фрагменте программы?

а) p:=2; repeat p:=p*0.1 until p<0.1;

б) p:=1;

repeat p:=p*0.1 until p>0.1;

3.Определите, какое значение будет выведено на экран в результате выполнения приведенной ниже последовательности операторов:

a:=1; b:=1; while a<=32 do a:=a*2;

b:=b*a; write (b)

(1) цирк  (2) пирк    (3)  пирзприз  (1) волк  (2) солк(3)  солн  слон  (1) стук   (2)  (м) мтук(3) (ь)  мтуьмуть  (1) крот     (2)  (м) мрот(3) (г)  мрогморг

аборигеном                                                                                                                                                                                                                             

var

b1,b2,i,n,p: integer;

begin

write('введите n'); readln (n); b1: =5; writeln ('1 элемент = ', b1);

p: =-1;

for i: =2 to n do

begin

p: =p*(-1);

b2: =p*b1-8;

writeln (i,' элемент = ', b2);

b1: =b2;

end;

end.

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

2 мальчика плывут на тот берег

1 мальчик возвращается

1 солдат плывет на тот берег

второй мальчик возвращается

и так по кол-ву солдат

ну его в баню такую переправу и бедные мальчики

ps задается уже не первый раз, пользуйтесь поиском