type hafta=(dush, sesh, chor, paysch, schanba, yaksch); var x,y: hafta; t:23..56; tavsiflash berilgan bo‘lsa, quyidagi ta’minlashlardan qaysi biri noto‘g‘ri?
type hafta=(dush, sesh, chor, paysch, schanba, yaksch); var x,y: hafta; t:23..56; tavsiflash berilgan bo‘lsa, quyidagi ta’minlashlardan qaysi biri noto‘g‘ri?
*a) y=t
x:=sesh
y:=x
d) t:=31
Quyida S ning qiymati nimaga teng? begin S:=0; for I:=1 to 3 do S:=S+2*i; writeln(S); end.
*a) 12
24
48
96
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.
*a) –4
–5
1
7
Quyida S ning qiymati nimaga teng? begin for j:=-2 to 3 do begin S:=0; S:=S+(j+1); end; writeln(S); end.
*a) 4
2
10
6
Dastur natijasini aniqlang. begin A:=12; B:=8; D:=20; if A>18 then D:=A-B; writeln(D); end.
*a) 20
5
8
4
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. *a) 16
20
2
24
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; writeln(y); end.