mihaispr
Administrator
 Inregistrat: acum 17 ani
Postari: 2142
|
|
{1. Rescrieti urmatoarea secventa cu ajutorul instructiunii repeat si spuneti ce afiseaza var p,i:integer; begin i:=1;p:=0; while i<=10 do begin p:=p+1; i:=i+3 end; writeln(p); readln end.}
var p,i:integer; begin repeat p:=p+1; i:=i+3; until i<=10; write(p); end.
{2. Rescrieti urmatoarea secventa cu ajutorul instructiunii while si spuneti ce afiseaza var x,y:integer; begin x:=1;y:=7; repeat writeln(x,' ',y); x:=x+2; until x>=y; readln end.}
var x,y:integer; begin x:=1; y:=7; while x>=y do begin x:=x+2; writeln(x,' ',y); readln end; readln end.
|
|