Информатика. Часть 2
Кафедра ПМиИ
Тимченко С.В.
Томск-2007

Ключевые слова и стандартные типы, которые могут использоваться при описании скалярной переменной целого типа?

№ 1
• Integer.

№ 2
• Shortint.
• Word.

№ 3
• Integer.
• Word.

№ 4
• Shortint.

№ 5
• Integer.

Ключевые слова и стандартные типы, которые могут использоваться при описании скалярной переменной вещественного типа?

№ 6
• Real.

№ 7
• Real.
• Single.
• Double.

№ 8
• Double.
• Single.

№ 9
• Real.

№ 10
• Real.
• Single.

 

Чему будет равно значение переменной j после выполнения следующей последовательности операторов?

№ 11

 i:=4;
 if abs(i-3)>2 then
    j:=sqr(i+1) mod 3
 else
    j:= (i+4) div 2;

Ответ: (4)

№ 12

 i:=4;
 if abs(i-3)>2 then
     j:=sqr(i+1) mod 2
 else
     j:= (i+4) div 3;

Ответ: (2)

№ 13

  i:=3;
  if abs(i-3)>2 then
     j:=sqr(i+1) mod 2
  else
     j:= (i+4) div 3;

Ответ: (2)

№ 14

 i:=3;
 if abs(i-3)>2 then
   j:=sqr(i+3) mod 4
 else
   j:= (i+1) div 3;

Ответ: (1)

№ 15

  i:=3;
  if abs(i-3)>2 then
     j:=sqr(i+3) mod 4
  else
     j:= (i+1) div 3;

Ответ: (1)

№ 16

  i:=3;
  if abs(i-3)<2 then
    j:=sqr(i+3) mod 4
  else
    j:= (i+1) div 3;

Ответ: (0)

№ 17

   i:=3;
   if abs(i-3)<2 then
      j:=sqr(i+3) mod 4
   else
     j:= (i-4) div 3;

Ответ: (0)

№ 18

  i:=6;
  if abs(i-3)>2 then
     j:=sqr(i+2) mod 5
  else
     j:= (i-3) div 3;

Ответ: (4)

№ 19

  i:=7;
  if abs(i-3)>2 then
    j:=sqr(i+2) mod 5
  else
    j:= (i-3) div 3;

Ответ: (1)

№ 20

 i:=3;
 if abs(i-3)>2 then
   j:=sqr(i+2) mod 5
 else
   j:= (i+5) div 3;

Ответ: (2)

 

Чему будет равно значение переменной s после выполнения следующей последовательности операторов?

№ 21

  s:=0;
  for i:=3 to 7 do
    s:=s+2*i;

Ответ: (50)

№ 22

 s:=0;
 for i:=1 to 5 do
   s:=s+2*i;

Ответ: (30)

№ 23

  s:=7;
  for i:=1 to 5 do
    s:=s+2*i;

Ответ: (37)

№ 24

  s:=7;
  for i:=3 to 5 do
    s:=s+2*i;

Ответ: (31)

№ 25

  s:=0;
  for i:=3 to 5 do
     s:=s+3*i;

Ответ: (36)

№ 26

  s:=0;
  for i:=1 to 5 do
   s:=s+3*i;

Ответ: (45)

№ 27

  s:=5;
  for i:=1 to 5 do
   s:=s+3*i;

Ответ: (50)

№ 28

  s:=10;
  for i:=1 to 5 do
    s:=s+3*i;

Ответ: (55)

№ 29

  s:=10;
  for i:=1 to 5 do
    s:=s+i;

Ответ: (25)

№ 30

  s:=0;
  for i:=3 to 8 do
   s:=s+i;

Ответ: (33)

 

Чему будет равно значение переменной s после выполнения следующей последовательности операторов?

№ 31

 s:=0; i:=0;
 while s<10 do begin
   s:=s+2*i;
   i:=i+1;
 end;

Ответ: (12)

№ 32

  s:=0; i:=0;
  while s<7 do begin
   s:=s+2*i;
   i:=i+1;
  end;

Ответ: (12)

№ 33

  s:=0; i:=2;
  while s<7 do begin
    s:=s+2*i;
    i:=i+1;
  end;

Ответ: (10)

№ 34

 s:=5; i:=2;
 while s<7 do begin
   s:=s+2*i;
   i:=i+1;
 end;

Ответ: (9)

№ 35

 s:=5; i:=2;
 while s<7 do begin
   s:=s+2*i;
   i:=i+2;
 end;

Ответ: (9)

№ 36

 s:=5; i:=2;
 while s< 10 do begin
  s:=s+2*i;
  i:=i+3;
 end;

Ответ: (19)

№ 37

  s:=0; i:=2;
  while s< 10 do begin
    s:=s+2*i;
    i:=i+3;
  end;

Ответ: (14)

№ 38

  s:=0; i:=0;
  while s< 10 do begin
   s:=s+2*i;
   i:=i+3;
  end;

Ответ: (18)

№ 39

  s:=0; i:=0;
  while s< 10 do begin
    s:=s+2*i;
    i:=i+1;
  end;

Ответ: (12)

№ 40

  s:=0; i:=0;
  while s>10 do begin
   s:=s+2*i;
   i:=i+2;
  end;

Ответ: (0)

 

Чему будет равно значение переменной s после выполнения следующей последовательности операторов?

№ 41

 s:=0; i:=0;
 repeat
  s:=s+2*i;
  i:=i+1;
 until s>10; 

Ответ: (12)

№ 42

 s:=0; i:=0;
 repeat
   s:=s+2*i;
   i:=i+3;
 until s>10; 

Ответ: (18)

№ 43

  s:=0; i:=2;
  repeat
    s:=s+2*i;
    i:=i+3;
  until s>10; 

Ответ: (14)

№ 44

  s:=0; i:=4;
  repeat
    s:=s+2*i;
    i:=i+3;
  until s>10; 

Ответ: (22)

№ 45

  s:=10; i:=2;
  repeat
    s:=s+2*i;
    i:=i+3;
  until s>10;

Ответ: (18)

№ 46

  s:=0; i:=5;
  repeat
    s:=s+2*i;
    i:=i+3;
  until s>10; 

Ответ: (26)

№ 47

  s:=0; i:=-1;
  repeat
    s:=s+2*i;
    i:=i+3;
  until s>10; 

Ответ: (12)

№ 48

 s:=-5; i:=-1;
 repeat
  s:=s+2*i;
  i:=i+3;
 until s>10; 

Ответ: (23)

№ 49

 s:=5; i:=-1;
 repeat
   s:=s+2*i;
   i:=i+3;
 until s<10; 

Ответ: (3)

№ 50

 s:=0; i:=1; 
 repeat
   s:=s+2*i;
   i:=i+3;
 until s<10; 

Ответ: (2)

 

Какое число будет выведено на экран в результате выполнения следующего фрагмента программы (предполагается, что все используемые переменные – целые числа)?

№ 51

 a[1]:=1;
 for i:=2 to 10 do
   a[i]:=a[i-1]+i;
 writeln(a[7]);

Ответ: (28)

№ 52

 a[1]:=3;
 for i:=2 to 10 do
  a[i]:=a[i-1]+i;
 writeln(a[7]);

Ответ: (30)

№ 53

 a[1]:=3;
 for i:=2 to 10 do
  a[i]:=a[i-1]+i;
 writeln(a[5]);

Ответ: (17)

№ 54

 a[1]:=3;
 for i:=2 to 10 do
   a[i]:=a[i-1]+2*i;
 writeln(a[5]);

Ответ: (31)

№ 55

 a[1]:=7;
 for i:=2 to 10 do
  a[i]:=a[i-1]+2*i;
 writeln(a[5]);

Ответ: (35)

№ 56

 a[1]:=7;
 for i:=2 to 10 do
   a[i]:=a[i-1]+2*i;
 writeln(a[7]);

Ответ: (61)

№ 57

 a[1]:=7;
 for i:=2 to 10 do
   a[i]:=a[i-1]+2*i;
 writeln(a[6]);

Ответ: (47)

№ 58

 a[1]:=7;
 for i:=2 to 10 do
   a[i]:=a[i-1]+2*i;
 writeln(a[4]);

Ответ: (25)

№ 59

 a[1]:=7;
 for i:=2 to 10 do
   a[i]:=a[i-1]+3*i;
 writeln(a[4]);

Ответ: (34)

№ 60

 a[1]:=0;
 for i:=2 to 10 do
  a[i]:=a[i-1]+i;
 writeln(a[4]);

Ответ: (9)

 

Какое число будет выведено на экран в результате выполнения следующей программы?

№ 61

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
    a[i,j]:=i+j;
  for i:=1 to 4 do s:=s+a[i,3];
  writeln(s);
end.

Ответ: (22)

№ 62

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
    a[i,j]:=i+j;
  for i:=1 to 4 do s:=s+a[i,2];
  writeln(s);
end.

Ответ: (18)

№ 63

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
    a[i,j]:=i+j;
  for i:=1 to 4 do s:=s+a[2,i];
  writeln(s);
end.

Ответ: (18)

№ 64

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
    a[i,j]:=i+j;
  for i:=1 to 4 do s:=s+a[3,i];
  writeln(s);
end.

Ответ: (22)

№ 65

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
   a[i,j]:=i*j;
  for i:=1 to 4 do s:=s+a[3,i];
  writeln(s);
end.

Ответ: (30)

№ 66

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
    a[i,j]:=i*j;
  for i:=1 to 4 do s:=s+a[2,i];
  writeln(s);
end.

Ответ: (20)

№ 67

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
    a[i,j]:=i*j;
  for i:=1 to 4 do s:=s+a[1,i];
  writeln(s);
end.

Ответ: (10)

№ 68

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
    a[i,j]:=i*j;
  for i:=1 to 4 do s:=s+a[4,i];
  writeln(s);
end.

Ответ: (40)

№ 69

var
 j,i,s:integer;
 a:array [1..4,1..4] of integer;
begin
 s:=0;
 for i:=1 to 4 do for j:=1 to 4 do
   a[i,j]:=i*j;
 for i:=1 to 4 do s:=s+a[4,i];
 writeln(s);
end.

Ответ: (40)

№ 70

var
  j,i,s:integer;
  a:array [1..4,1..4] of integer;
begin
  s:=0;
  for i:=1 to 4 do for j:=1 to 4 do
    a[i,j]:=i-j;
  for i:=1 to 4 do s:=s+a[4,i];
  writeln(s);
end.

Ответ: (6)

 

Какое число будет выведено на экран в результате выполнения следующей программы?

№ 71

var
   a,b,c:integer;
procedure sub;
var
a,b,c:integer;
begin
   a:=5; b:=3;
end;
begin
   a:=1; b:=2;
   sub;
   writeln(a+b);
end.

Ответ: (3)

№ 72

var
  a,b,c:integer;
procedure sub;
var
  a,b,c:integer;
begin
  a:=3; b:=5;
end;
begin
  a:=1; b:=2;
  sub;
  writeln(a+b);
end.

Ответ: (3)

№ 73

var
   a,b,c:integer;
procedure sub;
var
   a,c:integer;
begin
   a:=3; b:=5;
end;
begin
   a:=1; b:=2;
   sub;
   writeln(a+b);
end.

Ответ: (6)

№ 74

var
  a,b,c:integer;
procedure sub;
var
  b,c:integer;
begin
  a:=3; b:=5;
end;
begin
  a:=1; b:=2;
  sub;
  writeln(a+b);
end.

Ответ: (5)

№ 75

var
  a,b,c:integer;
procedure sub;
var
  c:integer;
begin
  a:=3; b:=5;
end;
begin
  a:=1; b:=2;
  sub;
  writeln(a+b);
end.

Ответ: (8)

№ 76

var
  a,b,c:integer;
procedure sub;
var
  c:integer;
begin
  a:=3; c:=5;
end;
begin
  a:=1; b:=2;
  sub;
  writeln(a+b);
end.

Ответ: (5)

№ 77

var
   a,b,c:integer;
procedure sub;
var
   c:integer;
   begin
   c:=3; b:=5;
end;
begin
   a:=1; b:=2;
   sub;
   writeln(a+b);
end.

Ответ: (6)

№ 78

var
  a,b,c:integer;
procedure sub;
var
  c:integer;
begin
  c:=3; b:=5;
end;
begin
  a:=1; b:=2;
  sub;
  writeln(a*b);
end.

Ответ: (5)

№ 79

var
  a,b,c:integer;
procedure sub;
var
  c:integer;
begin
  a:=3; b:=5;
end;
begin
  a:=1; b:=2;
  sub;
  writeln(a*b);
end.

Ответ: (15)

№ 80

var
  a,b,c:integer;
procedure sub;
var
  a,b:integer;
begin
  a:=3; b:=5;
end;
begin
  a:=1; b:=2;
  sub;
  writeln(a*b);
end.

Ответ: (2)

 

Какое число будет выведено на экран в результате выполнения следующей программы?

№ 81

 var
   a,b,c:integer;
 procedure sub(var x:integer; var y:integer);
 var
   a,b,c:integer;
 begin
   a:=10; c:=20;
   x:=30; y:=50;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
   writeln(a+b);
 end.

Ответ: (80)

№ 82

 var
   a,b,c:integer;
 procedure sub(x:integer; var y:integer);
 var
   a,b,c:integer;
 begin
   a:=10; c:=20;
   x:=30; y:=50;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
  writeln(a+b);
 end.

Ответ: (51)

№ 83

 var
   a,b,c:integer;
 procedure sub(var x:integer; y:integer);
 var
   a,b,c:integer;
 begin
   a:=10; c:=20;
   x:=30; y:=50;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
   writeln(a+b);
 end.

Ответ: (32)

№ 84

 var
   a,b,c:integer;
 procedure sub(x:integer; y:integer);
 var
   a,b,c:integer;
 begin
   a:=10; c:=20;
   x:=30; y:=50;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
   writeln(a+b);
 end.

Ответ: (3)

№ 85

 var
   a,b,c:integer;
 procedure sub(var x:integer; var y:integer);
 var
   a,b,c:integer;
 begin
   a:=10; c:=20;
   x:=60; y:=40;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
   writeln(a+b);
 end.

Ответ: (100)

№ 86

 var
    a,b,c:integer;
 procedure sub(x:integer; var y:integer);
 var
    a,b,c:integer;
 begin
    a:=10; c:=20;
    x:=60; y:=40;
 end;
 begin
    a:=1; b:=2; c:=3;
    sub(a,b);
    writeln(a+b);
 end.

Ответ: (41)

№ 87

 var
   a,b,c:integer;
 procedure sub(var x:integer; y:integer);
 var
   a,b,c:integer;
 begin
   a:=10; c:=20;
   x:=60; y:=40;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
   writeln(a+b);
 end.

Ответ: (62)

№ 88

 var
   a,b,c:integer;
 procedure sub(x:integer; y:integer);
 var
   a,b,c:integer;
 begin
   a:=10; c:=20;
   x:=60; y:=40;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
   writeln(a+b);
 end.

Ответ: (3)

№ 89

 var
   a,b,c:integer;
 procedure sub(var x:integer; y:integer);
 var
   c:integer;
 begin
   a:=10; c:=20;
   x:=60; y:=40;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
   writeln(a+b);
 end.

Ответ: (62)

№ 90

 var
   a,b,c:integer;
 procedure sub(x:integer; y:integer);
 var
   c:integer;
 begin
   a:=10; c:=20;
   x:=60; y:=40;
 end;
 begin
   a:=1; b:=2; c:=3;
   sub(a,b);
   writeln(a+b);
 end.

Ответ: (12)

 

Какой текст будет выведен на экран в результате выполнения следующего фрагмента программы?

№ 91

 s:='Example';s0:='ABC';
 Delete(s,4,3);
 writeln(s);

Ответ: (Exae)

№ 92

 s:='Example';s0:='ABC';
 insert(s,s0,3);
 writeln(s);

Ответ: (Example)

№ 93

 s:='Example';s0:='ABC';
 s:=copy(s,4,5);
 writeln(s);

Ответ: (mple)

№ 94

 s:='Example';s0:='ABC';
 Delete(s,6,3);
 writeln(s);

Ответ: (Examp)

№ 95

 s:='Example';s0:='ABC';
 insert(s,s0,5);
 writeln(s);

Ответ: (Example)

№ 96

 s:='Example';s0:='ABC';
 s:=copy(s,2,4);
 writeln(s);

Ответ: (xamp)

№ 97

 s:='Example';s0:='ABC';
 Delete(s,1,3);
 writeln(s);

Ответ: (mple)

№ 98

 s:='Example';s0:='ABC';
 insert(s0,s,3);
 writeln(s);

Ответ: (ExABCample)

№ 99

 s:='Example';s0:='ABC';
 s:=copy(s,4,2);
 writeln(s);

Ответ: (mp)

№ 100

 s:='Example';s0:='ABC';
 insert(s0,s,5);
 writeln(s);

Ответ: (ExamABCple)