Сколько раз выполнится цикл в программе? a : = 1; b : = 1; while a + b < 8 do begin a : = a + 1; b : = b + 2 end; выберите один ответ: 2 бесконечное число раз 3 1

A: = 1; b : = 1; while a + b < 8 do begin a : = a + 1; b : = b + 2 end; цикл будет выполняться, пока условие истинно, то есть, пока a+b < 8. при первой итерации условие истинно (1+1< 8) на второй итерации значения переменных будут равны:   a = 1 + 1 = 2   b = 1 + 2 = 3 условие истинно (2+3< 8) третья итерация: a = 2 +1 = 3 b = 3 + 2 = 5 условие ложно (3 + 5< 8), программа выйдет из цикла. ответ: цикл выполниться три раза.

  только решу - интер а получилось вот что: uses crt; const n=30; type mas=array [1..n]  of integer;   var i, j , sumpol, sumotr: integer;         a: mas; begin   clrscr;   sumpol: =0;   sumotr: =0;   writeln(' sposob 1: ');   writeln;   for i: =1 to n do         begin                   a[i]: =-10+random(21);                   write (a[i]: 4);         end;   writeln;   for i: =1 to n do   begin             if (a[i]> 0) then sumpol: =sumpol+a[i];             if (a[i]< 0) then sumotr: =sumotr+a[i];   end;   writeln(' sumpol =', sumpol);   writeln(' sumotr =', sumotr);   writeln;   writeln (' sposob 2: ') ;   sumpol: =0;   sumotr: =0;   i: =1;   repeat     if (a[i]> 0) then sumpol: =sumpol+a[i];     if (a[i]< 0) then sumotr: =sumotr+a[i];     i: =i+1;   until i> 30;   writeln(' sumpol =', sumpol);   writeln(' sumotr =', sumotr);   readln; end.