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

Первая программа: program p; var x, y: integer; begin   writeln('введите x > > ');   read(x);   writeln('введите y > > ');   read(y);   if (x< 0) and (y> 0) then       begin           writeln('точка принадлежит второй координатной четверти');       end     else       begin           writeln('точка не принадлежит второй координатной четверти');       end end. вторая: program p2; var n, i, sum, j: integer; arr: array[1..10] of integer; begin   writeln('введите число n');   read(n);   while n> 0 do       begin           inc(i);           arr[i]: =n mod 10;           n: =n div 10;       end;   for j: =1 to i do       begin           sum+=arr[j];           //write(arr[j]);       end;   if sum> 9 then3       begin           writeln('сумма больше 9');       end   else       begin           writeln('сумма меньше 9');       end end.

// pascalabc.net 3.2, сборка 1514 от 11.08.2017 // внимание! если программа не работает, обновите версию! begin   var (x,y): =readreal2('введитие координаты точки');   if (x< 0) and (y> 0) then writeln('точка лежит во ii четверти')   else writeln('точка не лежит во ii четверти') end. пример введитие координаты точки -4.6 7 точка лежит во ii четверти begin   var n: =readinteger('введите двухзначное число');   if n div 10+n mod 10> 9 then writeln('сумма цифр больше девяти')   else writeln('сумма цифр не больше девяти') end. примеры введите двухзначное число 47 сумма цифр больше девяти введите двухзначное число 81 сумма цифр не больше девяти