1. Дана последовательность операторов: a:=1; b:=2; while a+b<8 do begin a:=a+1; b:=b+2; end; s:=a+b Сколько раз будет повторён цикл и какими будут значения переменных а, b, s после исполнения этой последовательности операторов?
Const n=5; var i,q:integer; a:array [1..n] of integer; b:array [1..n] of integer; c:array [1..50] of integer; begin writeln ('Заполните первый массив'); for i:=1 to n do read (a[i]) ; writeln ('Заполните второй массив') ; for i:=1 to n do read (b[i]); for i:=1 to n do begin if i mod 2<>0 then begin q:=q+1; c[q]:=a[i]; q:=q+1; c[q]:=b[i]; end; end; for i:=1 to n do if b[i]>0 then begin q:=q+1; c[q]:=b[i]; end; if q=0 then writeln ('условие не выполняется') else begin for i:=1 to q do write (' ',c[i]); end end.
P.s. Вы можете изменять константу, и ограничивать вводимые значения вводом, но не забывайте, что первые два массива не должны превышать количество ячеек, ограниченной константой. Можно эту константу поменять, это все на ваше усмотрение. P.p.s. Программа написана на Pascal ABC.
Цикл будет повторен 2 раза
a = 3
b = 6
s = 9