Цикл выполняется пока условие а + b < 10 истинно (да)
Действия в цикле:
а = а + 1
b = b + 2
а = 1
b = 1
а + b < 10 1 + 1 < 10 2 < 10 (да)
Действия в цикле:
а = а + 1 = 1 + 1 = 2
b = b + 2 = 1 + 2 = 3
а = 2
b = 3
а + b < 10 2 + 3 < 10 5 < 10 (да)
Действия в цикле:
а = а + 1 = 2 + 1 = 3
b = b + 2 = 3 + 2 = 5
а = 3
b = 5
а + b < 10 3 + 5 < 10 8 < 10 (да)
Действия в цикле:
а = а + 1 = 3 + 1 = 4
b = b + 2 = 5 + 2 = 7
а = 4
b = 7
а + b < 10 4 + 7 < 10 11 < 10 (нет)
Действия в цикле не выполняются
а = 4
b = 7
Цикл будет выполнен 3 раза
Спасибо
Ответ дал: Гость
program; var i: byte; str: string; begin for i: =60 to 70 do begin str: =str+chr(i) ; end; writeln(str); end.
Ответ дал: Гость
program ml; uses crt; var x,i: integer; w,l: real; beginclrscr; readln(x); l: =x; for i: =1 to x do beginw: =w+1; l: =x/w; if frac(l) = 0 then writeln(l: 2: 0); end; readkey; end.
Популярные вопросы