Dastur natijasini aniqlang. Var i, s: integer; Begin S:=0; For i:=1 to 10 do S:=S+i; Write(‘S=’,S); End.
*a) S=55 b ) S=45 c ) S=65
d) S=10
Dastur natijasini aniqlang. Var i, p: integer; Begin p:=1; for i:=1 to 5 do p:=p*i; i:=i+1; writeln(p); end.
*a) 120
b) 240
15
60
Dastur natijasini aniqlang. Var i,S: integer; Begin S:=0; For i:=0 to 5 do S:=S*i; Write(‘S=’,S); End.
*a) S=0 b) S=120
S=15
S=25
Dastur natijasini aniqlang. Var i,s: integer; Begin s:=1; for i:=1 to 10 do; s:=s+i; writeln(s); end.
*a) 11
55
56
10
Dastur natijasini aniqlang: Begin write(round(2.78); end.
*a) 3
b) 2
c) 0.78
d) 0.2
Quyida write operatori necha marta bajariladi? for i:=1 to 3 do for j:=0 to 3 do write (i+j);
*a) 12 marta
1 marta
3 marta
9 marta
Do'stlaringiz bilan baham: |