While i i 1

While i i 1.

Begin Информатика.

I=+1 I+=1.

(1+I)^I.

S 0 I 0 while i<5.

Writeln('1+3='); writeln(1+3);.

Uses CRT.

Var i n integer begin i= 1 while i=10.

Var a,s: integer; begin s:=0; for a:=1 to 4 do s:=s+a; writeln('s=', s); end.

.

I++ цикл while.