Итоговый тест "Программирование обработки информации"

У исполнителя Калькулятор две команды, которым присвоены номера:
  1. прибавь 1
  2. умножь на 3
Выполняя первую из них, Калькулятор прибавляет к числу на экране 1, а выполняя вторую, утраивает его. Запишите порядок команд в программе получения из 3 числа 34, содержащей не более 5 команд, указывая лишь номера команд.

У исполнителя Квадр две команды, которым присвоены номера:
  1. прибавь 1,
  2. возведи в квадрат.
Первая из этих команд увеличивает число на экране на 1, вторая - возводит в квадрат. Программа для исполнителя Квадр - это последовательность номеров команд.
Запишите программу для исполнителя Квадр, которая преобразует число 5 в число 2500 и содержит не более 6 команд. Если таких программ более одной, то запишите любую из них.

Определите значение переменной «a» после выполнения фрагмента программы:

  a := 10;
  if a < 5 then a := a + 12
             else  a := a - 7;
  if a < 5 then a := a + 12
             else  a := a - 7;

Чему будет равна переменная «c» после выполнения этой программы:

  a := 20;
  b := 3;
  c := a mod b + b;
 

Автомат получает на вход четырехзначное десятичное число. По этому числу строится новое число по следующим правилам
1. Складываются первая и вторая, а также третья и четвёртая цифры
2. Полученные два числа записываются друг за другом в порядке возрастания (без разделителей)
Пример. Исходное число: 8754.
Суммы: 8+7=15; 5+4=9. Результат: 915.
Определите, какое из следующих чисел может быть результатом работы автомата

Какую логическую операцию нужно добавить в программу вместо многоточия, чтобы значение переменной «a» после выполнения фрагмента программы стало равно 22?

  a := 15; b := 20;
  if (a >1) ... (a > b) then a := a - 7
                              else a := a + 7;

Определите, что будет напечатано в результате работы следующего фрагмента программы:
var k, s: integer;
begin
  s:=0;
  k:=1;
  while s < 66 do begin
    k:=k+3;
    s:=s+k;
  end;
  write(k);
end.

Дан фрагмент программы:

var s, n: integer;
begin
  s := 0;
  n := 0;
  while s < 111 do begin
    s := s + ...;
    n := n + 3
  end;
  writeln(n)
end.

Какое  минимальное натуральное число можно записать вместо многоточия, чтобы результатом работы программы было число 42?

Дан фрагмент программы, обрабатывающий массив А из 10 элементов:
n := 10;
for i:=1 tо n do A[i] := i;
j := 1;
for i:=1 tо n-1 do
  hf A[i] < A[i+1] then j := j + 1;
Чему будет равно значение переменной j после выполнения этого алгоритма?

Значения двух массивов A[1..100] и B[1..100] задаются с помощью следующего фрагмента программы:
for n:=1 to 100 do
  A[n] := (n-80)*(n-80);
for n:=1 to 100 do
  B[101-n] := A[n];
Какой элемент массива B будет наибольшим?

В программе описан одномерный целочисленный массив A с индексами от 0 до 10. Ниже представлен фрагмент этой программы, в котором значения элементов массива сначала задаются, а затем меняются.
for j:=0 to 10 do
  A[j]:=j;
t:=A[0];
for j:=1 to 10 do
  A[j-1]:=A[j];
A[10]:=t;
Чему будут равны элементы этого массива?

Дана программа:
Var a,b,t,M,R :integer;
Function F(x:integer):integer;
begin
...
end;
BEGIN
  a:=-20; b:=20;
  M:=a; R:=F(a);
  for t:=a to b do begin
    if (F(t)<R)then begin
      M:=t;
      R:=F(t);
    end;
  end;
  write(M);
END.

Какое выражение должно быть записано в программе вместо многоточия, чтобы после её выполнения на экране появилось число 2.