Begin S:=0; for I:=1 to 3 do S:=S+2*i;
writeln(S); end.
* 12
Dastur qiymati nimaga teng? begin
X:=-2; y:=4; A:=-2; if A*A-y>x*x then
z:=y+A else z:=X+A; writeln(z); end.
* ‘4
Quyida S ning qiymati nimaga teng?
Begin for j:=-2 to 3 do begin S:=0;
S:=S+(j+1); end; writeln(S); end.
* 4
Dastur natijasini aniqlang. begin
A:=12; B:=8; D:=20; if A>18 then
D:=A-B; writeln(D); end.
* 20
Dastur natijasini aniqlang. begin X:=2;
p:=1; 1:P:=P*(2*x-2); X:=X+3; if X<=6
then goto 1; writeln(P); end.
* 16
Hisob natijasini aniqlang? begin
A:=10; B:=8; C:= 6; if (A>B) and
(C>B) then y:=A+B-C else y:=A-B+C;
Do'stlaringiz bilan baham: |