Определите значение переменной а после выполнения фрагмента алгоритма. а: =2 в: =2 нц в: =в+5 а: =а+3 кц при в> 14 можно, , только полное решение с разбором
Эта автоматически тебе всё сделает. Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); a[i]:=i+1; if max<a[i] then max:=a[i]; writeln(a[i]); end; writeln('Максимальный элемент равен: ',max); end.
Если нужно будет ввести последовательность с клавиатуры, то вот: Var i, n, max : Integer; a : array [1..30] of Integer; begin for i := 1 to 30 do begin Write('a[', i, ']='); ReadLn (a[i]); if max<a[i] then max:=a[i]; end; writeln('Максимальный элемент равен: ',max); end.
var x,y:integer; begin readln (x,y); if (x>0) and (y>0) then writeln ('Точка лежит в первой четверти'); if (x<0) and (y>0) then writeln ('Точка лежит во второй четверти'); if (x<0) and (y<0) then writeln ('Точка лежит в третьей четверти'); if (x>0) and (y<0) then writeln ('Точка лежит в четвертой четверти'); if (x=0) and (y=0) then writeln ('Точка лежит на пересечении осей') else if x=0 then writeln ('Точка лежит на оси ординат') else if y=0 then writeln ('Точка лежит на оси абсцисс'); readln; end.
Это цикл с пост условием, т.е. условие выхода из цикла расположено в конце цикла.
Теперь просто выполняем цикл:
А:=А+3;
В:=В+5;
1. А=5, В=7
В>14? (7>14?) Нет, значит продолжаем выполнение цикла
2. А=8, В=12
В>14? Нет, продолжаем
3. А=11, В=17
В>14? Да, значит мы можем выйти из цикла и продолжить выполнение алгоритма
Последним значением переменной А в данном цикле было 11, т.е. А=11 после выполнения фрагмента алгоритма