Вариант 1
1. Определите значение переменной а после выполнения данного алгоритма:
a := 2
b := 5
b := 6 + a * b
a := b / 4 * a
2. Определите значение переменной а после выполнения данного алгоритма:
a := 5
b := 6
b := 15 + a * b
a := b / 3 * a
3. Определите значение переменной s после выполнения данного алгоритма:
var s,k: integer;
begin
s := 7;
for k := 4 to 7 do
s := s * 2;
writeln(s);
end.
4. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := -90;
for k := 14 downto 7 do
s := s + 9;
writeln(s);
end.
5. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 5;
for k := -3 to 7 do
s := s + 5;
writeln(s);
end.
6. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := 6; Dat[10] := 9;
m := 0;
for k := 1 to 10 do
if Dat[k] 6 then
m := m + 1;
writeln(m)
end.
7. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := 6; Dat[10] := 9;
m := 0;
for k := 1 to 10 do
if Dat[k]
m := m + Dat[k];
writeln(m)
end.
8. Что будет напечатано в результате работы следующей программы:
var k, m, n: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 10;
Dat[9] := 6; Dat[10] := 9;
m := 0; n := 0;
for k := 1 to 10 do
if Dat[k] = m then
begin
m := Dat[k];
n := k
end;
writeln(n)
end.
Вариант 2
1. Определите значение переменной b после выполнения данного алгоритма:
a := 3
b := 12
a := b - a * 3
b := 24 / a * 4
2. Определите значение переменной а после выполнения данного алгоритма:
a := 2
b := 5
b := 3 * a + b
a := b * 4 / a
3. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 3;
for k := 4 to 8 do
s := s * 2;
writeln(s);
end.
4. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 7;
for k := 11 downto 9 do
s := s + 7;
writeln(s);
end.
5. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 80;
for k := -2 to 5 do
s := s - 5;
writeln(s);
end.
6. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 0;
for k := 1 to 11 do
if k 9 then
m := m + Dat[k];
writeln(m)
end.
7. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 30;
for k := 1 to 11 do
if Dat[k]
m := Dat[k];
writeln(m)
end.
8. Что будет напечатано в результате работы следующей программы:
var k, m, n : integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 30;
for k := 1 to 11 do
if Dat[k]
begin
m: = Dat[k];
n: = k
end;
writeln(n)
end.
Вариант 3
1. Определите значение переменной а после выполнения данного алгоритма:
a := 2
b := 6
b := 12 + a * b
a := b / 4 * a
2. Определите значение переменной b после выполнения данного алгоритма:
a := 4
b := 15
a := b - a * 3
b := 24 / a * 4
3. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 64;
for k := 3 to 7 do
s := s / 2;
writeln(s);
end.
4. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 77;
for k := 9 downto 3 do
s := s -2;
writeln(s);
end.
5. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 0;
for k := -2 to 3 do
s := s + 10;
writeln(s);
end.
6. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := 6; Dat[10] := 9;
m := 0;
for k := 1 to 10 do
if Dat[k]
m := m + 1;
writeln(m)
end.
7. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 0;
for k := 1 to 11 do
if k
m := m + Dat[k];
writeln(m)
end.
8. Что будет напечатано в результате работы следующей программы:
var k, m, n : integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 18;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 35;
for k := 1 to 11 do
if Dat[k]
begin
m: = Dat[k];
n: = k
end;
writeln(n)
end.
Вариант 4
1. Определите значение переменной а после выполнения данного алгоритма:
a := 12
b :=а - 5
b := 1 + a * b
a := b / 5 * a / 6
2. Определите значение переменной а после выполнения данного алгоритма:
a := 2
b := 6*а
b := 33 + a * b
a := b / 3 * a
3. Определите значение переменной s после выполнения данного алгоритма:
var s,k: integer;
begin
s := 77;
for k := 4 to 7 do
s := s - 5;
writeln(s);
end.
4. Что будет напечатан о в результате работы следующей программы:
var s,k: integer;
begin
s := -9;
for k := 14 downto 7 do
s := s + 9;
writeln(s);
end.
5. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := -55;
for k := -3 to 7 do
s := s + 3;
writeln(s);
end.
6. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := 6; Dat[10] := 9;
m := 0;
for k := 1 to 10 do
if Dat[k] = 7 then
m := m + 1;
writeln(m)
end.
7. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 8;
Dat[9] := 6; Dat[10] := 9;
m := -10;
for k := 1 to 10 do
if Dat[k]
m := m + Dat[k];
writeln(m)
end.
8. Что будет напечатано в результате работы следующей программы:
var k, m, n: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 7; Dat[2] := 9;
Dat[3] := 10; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := 10;
Dat[9] := 6; Dat[10] := 9;
m := 5; n := 0;
for k := 1 to 10 do
if Dat[k] = m then
begin
m := Dat[k];
n := k
end;
writeln(n)
end.
Вариант 5
1. Определите значение переменной b после выполнения данного алгоритма:
a := 3
b := 12 + а
a := b - a * 3
b := 24 - a * 4
2. Определите значение переменной а после выполнения данного алгоритма:
a := 2
b := 24 / a
b := 3 * a + b
a := b * 4 / a
3. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 3;
for k := -4 to 1 do
s := s * 2;
writeln(s);
end.
4. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 512;
for k := 11 downto 7 do
s := s / 2 ;
writeln(s);
end.
5. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 80;
for k := -3 to 7 do
s := s - 3;
writeln(s);
end.
6. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 0;
for k := 1 to 11 do
if k = 7 then
m := m + Dat[k];
writeln(m)
end.
7. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 20; Dat[2] := 25;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 22;
Dat[7] := 24; Dat[8] := 28;
Dat[9] := 26; Dat[10] := 21;
Dat[11] := 27;
m := 25;
for k := 1 to 11 do
if Dat[k]
m := Dat[k];
writeln(m)
end.
8. Что будет напечатано в результате работы следующей программы:
var k, m, n : integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 10; Dat[2] := 15;
Dat[3] := 19; Dat[4] := 15;
Dat[5] := 16; Dat[6] := 12;
Dat[7] := 14; Dat[8] := 18;
Dat[9] := 16; Dat[10] := 11;
Dat[11] := 17;
m := 16;
for k := 1 to 11 do
if Dat[k] =
m then
begin
m: = Dat[k];
n: = k
end;
writeln(n)
end.
Вариант 6
1. Определите значение переменной а после выполнения данного алгоритма:
a := 12
b := a / 6
b := 24 + a * b
a := b / 4 * a
2. Определите значение переменной b после выполнения данного алгоритма:
a := 24
b := 15 - a
a := b - a / 3
b := 27 / b - a
3. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 1024;
for k := -3 to 4 do
s := s / 2;
writeln(s);
end.
4. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 66;
for k := 9 downto 3 do
s := s -3;
writeln(s);
end.
5. Что будет напечатано в результате работы следующей программы:
var s,k: integer;
begin
s := 10;
for k := -2 to 3 do
s := s + 7;
writeln(s);
end.
6. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..10] of integer;
begin
Dat[1] := -7; Dat[2] := -9;
Dat[3] := 0; Dat[4] := 5;
Dat[5] := 6; Dat[6] := 7;
Dat[7] := 9; Dat[8] := -8;
Dat[9] := -6; Dat[10] := 9;
m := 0;
for k := 1 to 10 do
if Dat[k]
m := m + 1;
writeln(m)
end.
7. Что будет напечатано в результате работы следующей программы:
var k, m: integer;
Dat: array[1..11] of integer;
begin
Dat[1] := 10; Dat[2] := 5;
Dat[3] := 9; Dat[4] := -5;
Dat[5] := -6; Dat[6] := 12;
Dat[7] := -14; Dat[8] := -8;
Dat[9] := 16; Dat[10] := 11;
Dat[11] := -7;
m := 0;
for k := 1 to 11 do
if k = 6 then
m := m + Dat[k];
writeln(m)
end.
8. Что будет напечатано в результате работы следующей программы:
var k, m, n : integer;
Dat: array[1..10] of integer;
begin
Dat[1] := 20; Dat[2] := 15;
Dat[3] := 19; Dat[4] := 25;
Dat[5] := 26; Dat[6] := 12;
Dat[7] := 14; Dat[8] := 18;
Dat[9] := 26; Dat[10] := 21;
m := 50;
for k := 1 to 10 do
if Dat[k]
begin
m: = Dat[k];
n: = k
end;
writeln(n)
end.
| 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 |
1 вар | 8 | 75 | 112 | -18 | 60 | 7 | 17 | 8 |
2 вар | 32 | 22 | 96 | 28 | 40 | 48 | 19 | 3 |
3 вар | 12 | 32 | 2 | 63 | 60 | 3 | 89 | 8 |
4 вар | 34 | 38 | 57 | 63 | -22 | 7 | 21 | 8 |
5 вар | 0 | 36 | 192 | 16 | 47 | 126 | 19 | 3 |
6 вар | 144 | 14 | 4 | 45 | 52 | 5 | 10 | 7 |