3) ;
4) .
33. :
1) if < > then <>;
2) if < > then <1> else <2>;
3) while < > do <>;
4) repeat
< 1>;
< 2>;
...
< n>
until < >;
34.
1) , ;
, ;
;
3) , ;
4) , , ;
35. d=23?
Case d mod 7 of
1: s: = ;
2: s: = ;
3: s: = ;
4: s: = ;
5: s: = ;
6: s: = ;
else s: =
end;
1) s = ;
2) s = ;
3) s = 7;
4) s = .
36. :
delete(s,length(s) div 2,1) s = 12345
1) 1345;
2) 123;
3) 2345;
4) 1.
37. val (+12.3, v, k)?
1) v=12, k=3;
2) v=12.3, k=0;
3) v- , k=3;
4) v=3, k=12.
38. A :
1) a(i);
2) a i;
3) a[i];
4) a.
39. X(n) :
1)
S:=0;
S:= S+x[i];
2)
S:=0;
For i:= 1 to n do
S:= S+x[i];
3)
S:=0;
For i:=1 to n do
S:= S+x(i);
4)
for i:=1 to n do
S:= S+i
40. C(n) :
1)
k:=0;
for i:=1 to n do
if c[i]<0 then k:= k+1;
2)
k:=0;
for i:=1 to n do
if c[i]>0 then k:= k+1;
3)
for i:=1 to n do
k:=0;
if c[i]<0 then k:= k+1;
4)
for i:=1 to n do
if c[i]>0 then k:= k+c[i];
41. A(n,m) :
1)
for i:= n to m do
S:= S+a[i,j];
2)
for i:=1 to n do
for j:=1 to m do begin
S:=0;
S:= S+a[i,j]; end;
3)
S:=0;
for i:=1 to n do
for j:=1 to m do
S:= S+a[i,j];
4)
For i:=n to m do
S:= S+a[i,j];
42. B(n,m) ?
1)
P:=0;
for i:=1 to n do
for j:=1 to m do
P:= P*b[i,j];
writeln(P=, P);
2)
P:=1;
for i:=1 to n do
for j:=1 to m do begin
P:=P*b[i,j]; if b[i,j]<>0 then
write (P=, P); end;
3)
P:=1;
for i:=1 to n do
begin
for j:=1 to m do
if b[i,j]<>0 then
P:= P*b[i,j];
writeln(P=,P);
|
|
|
end;
4)
for j:=1 to m do
Begin
P:=1;
for i:=1 to n do
if b[i,j]<>0 then P:=P*b[i,j];
writeln(P=, P);
End;
43. , A(n), . :
1)
writeln( A);
for i:=1 to n do
Begin
write(a[,i,]= );
readln(a[i]);
End;
2)
writeln( A);
for i:=1 to n do
write(a[i]);
3)
writeln( A)
read(A);
4)
for i:=1 to n do
writeln( a[i]);
44. X(n) ?
S:=0;
for i:=1 to n do
if x[i] mod 2=1 then S:= S+x[i];
...
1) ;
2) ;
;
4) ;
45. X :
1) x i j;
2) x(i,j);
3) x;
4) x[i,j].
46. X(n,m) :
1)
for i:=n to m do
writeln( x[i,j]);
2)
writeln( );
for i:=1 to n do
for j:=1 to m do begin
write(x[,i,,,j,]= );
readln(x[i,j]); end;
3)
for i:=1 to n do
for j:=1 to m do
writeln(x[i,j]);
4)
writeln( X);
47. A(n,m) . ?
1)
writeln( A);
for i:=1 to n do
Begin
for j:=1 to m do
write(a[i,j]:8:3, );
Writeln;
End;
2)
for i:=1 to n do
for j:=1 to m do
write (a[i,j]:8, );
3)
writeln( A);
for i:=n to m do
write(a[i,j]);
4)
for i:=1 to n do
begin
for j:=1 to m do
write(a[i,j]:8, );
writeln;
end;
48. ?
1) ();
2) {};
3) beginend;
4) [].
49. :
1) ;
2) ;
, ;
4) .
50. :
1) , , :
< >: <>;
