Задачи: программирование

  1. Запишите значение переменной s, полученное в результате работы следующей программы.

    Var s,k: integer;
Begin
  s := 0;
  for k := 6 to 12 do
    s := s+10;
  writeln(s);
End.

  2. В таблице Dat представлены данные о количестве голосов, поданных за 10 исполнителей народных песен (Dat[1] – количество голосов, поданных за первого исполнителя; Dat[2] – за второго и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

    Var k, m: integer;
    Dat: array[1..10] of integer;
Begin
  Dat[1] := 16; Dat[2] := 20;
  Dat[3] := 20; Dat[4] := 41;
  Dat[5] := 14; Dat[6] := 21;
  Dat[7] := 28; Dat[8] := 12;
  Dat[9] := 15; Dat[10] := 35;
  m := 0;
  for k := 1 to 10 do
    if Dat[k] > m then begin
      m := Dat[k]
    end;
  writeln(m);
End.

  3. Напишите программу, которая в последовательности натуральных чисел определяет минимальное число, оканчивающееся на 4. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 4. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – минимальное число, оканчивающееся на 4. Пример работы программы:

  4. Определите, что будет напечатано в результате работы следующей программы.

    var s, k:integer;
begin
  s:= 0;
  for k:= 4 to 11 do
    s:= s + k;
  writeln (s);
end.

  5. На бесконечном поле есть горизонтальная и вертикальная стены. Правый конец горизонтальной стены соединён с верхним концом вертикальной стены. Длины стен неизвестны. В каждой стене есть ровно один проход, точное место прохода и его ширина неизвестны. Робот находится в клетке, расположенной непосредственно под горизонтальной стеной у её левого конца.

    Напишите для Робота алгоритм, закрашивающий все клетки, расположенные непосредственно ниже горизонтальной стены и левее вертикальной стены, кроме клетки, в которой находится Робот перед выполнением программы. Проходы должны остаться незакрашенными.

  6. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 4, но не кратных 7. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, кратное 4 и не кратное 7. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 4, но не кратных 7. Пример работы программы:

  7. Определите, что будет напечатано в результате работы следующей программы.

    var s, k:integer;
begin
  s:= 1;
  for k:= 1 to 7 do
    s:= s + k;
  writeln (s);
end.

  8. Напишите программу, которая в последовательности натуральных чисел находит среднее арифметическое чисел, кратных 8, или сообщает, что таких чисел нет (выводит «NO»). Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести среднее арифметическое чисел, кратных 8, или вывести «NO», если таких чисел нет. Значение выводить с точностью до десятых.

    Пример работы программы:

  9. Определите, что будет напечатано в результате работы следующей программы.

    Var s,k: integer;
Begin
  s := 0;
  for k := 4 to 8 do
    s := s+7;
  writeln(s);
End.

  10. В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1] заданий сделал первый ученик, Dat[2] – второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

    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] > 8 then begin
      m := m + Dat[k]
    end;
  writeln(m)
End.

  11. На бесконечном поле имеется стена, длины отрезков стены неизвестны. Стена состоит из одного горизонтального и трёх равных вертикальных отрезков (отрезки стены расположены буквой «Ш»). Все отрезки неизвестной длины. Робот находится в клетке, расположенной непосредственно справа от верхнего конца левого вертикального отрезка.

    Напишите для Робота алгоритм, закрашивающий все клетки, расположенные непосредственно справа от второго вертикального отрезка.

  12. Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел, кратных 6 и оканчивающихся на 6. Программа получает на вход натуральные числа, количество введённых чисел неизвестно, последовательность чисел заканчивается числом 0 (0 – признак окончания ввода, не входит в последовательность). Количество чисел не превышает 100. Введённые числа не превышают 300. Программа должна вывести одно число: сумму всех чисел, кратных 6 и оканчивающихся на 6.

    Пример работы программы:

  13. Чертёжнику был дан для исполнения следующий алгоритм:

    Повтори 3 раз
  Сместиться на (1, 2) 
  Сместиться на (2, –1)
  Сместиться на (2, 0)
конец

    Какую команду надо выполнить Чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?

    1) Сместиться на (15, 3)
2) Сместиться на (-15, 3)   
3) Сместиться на (15, -3)   
4) Сместиться на (-15, -3)

  14. Определите значение переменной а после исполнения данного алгоритма.

    a := 20
b := a / 4 – 2
a := a – b * 3

  15. У исполнителя Раздвоитель две команды, которым присвоены номера:

    1. вычесть 1
2. разделить на 2

    Исполнитель работает только с натуральными числами. Составьте алгоритм получения из числа 17 числа 5 содержащий не более 5 команд. В ответе запишите только номера команд. Если таких алгоритмов более одного, то запишите любой из них.

  16. На бесконечном поле имеется горизонтальная стена. Длина стены неизвестна. Робот находится сверху от стены в левом ее конце.

    Напишите алгоритм для робота, закрашивающий все клетки, расположенные выше стены на расстоянии одной пустой клетки от стены, независимо от длины стены.

  17. Определите, что будет напечатано в результате работы следующей программы.

    Var s,k: integer;
Begin
  s := 0;
  for k := 6 to 10 do
    s := s+10;
  writeln(s);
End.

  18. В таблице Dat хранятся данные о количестве сделанных учениками заданий (Dat[1]) заданий сделал первый ученик, Dat[2] – второй и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

    var Dat: array[1..7] of integer;
    k, day: integer;
begin
  Dat[1] := 9; Dat[2] := 11;
  Dat[3] := 10; Dat[4] := 13;
  Dat[5] := 8; Dat[6] := 5;
  Dat[7] := 11;
  day := 0;
  for k := 1 to 7 do begin
    if Dat[k] <= 10 then
      day := day+1;
  end;
  writeln(day);
end.

  19. Напишите программу, которая в последовательности натуральных чисел определяет максимальное число, оканчивающееся на 3. Программа получает на вход количество чисел в последовательности, а затем сами числа. В последовательности всегда имеется число, оканчивающееся на 3. Количество чисел не превышает 1000. Введённые числа не превышают 30 000. Программа должна вывести одно число – максимальное число, оканчивающееся на 3.

    Пример работы программы:

  20. Определите, что будет напечатано в результате работы следующей программы.

    Var k,i: integer;
Begin
  k := 4;
  For i := 1 to 3 do
    k := 2*k + i;
  Writeln(k);
End.

  21. В таблице Dat хранятся данные о количестве учеников в классах (Dat[1] – количество учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы.

    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] := 7;
  m := 0;
  for k := 1 to 10 do
    if Dat[k] < 8 then begin
      m := m + 1
    end;
  writeln(m)

  22. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, кратных 3 и оканчивающихся на 2. Программа получает на вход количество чисел в последовательности, а затем сами числа.

    Количество чисел не превышает 1000. Введённые числа по модулю не превышают 30 000. Программа должна вывести одно число: количество чисел, кратных 3 и оканчивающихся на 2.

    Пример работы программы:

  23. Чертёжнику был дан для исполнения следующий алгоритм:

    Повтори 2 раз
  Сместиться на (–3, –4) 
  Сместиться на (3, 3) 
  Сместиться на (1, –2)
Конец

    Какую единственную команду надо выполнить Чертёжнику, чтобы вернуться в исходную точку, из которой он начал движение?

    1) Сместиться на (2, -6)   
2) Сместиться на (-6, 2)   
3) Сместиться на (6, -2)   
4) Сместиться на (-2, 6)

  24. Определите значение переменной а после исполнения данного алгоритма.

    a := 12
b := 8 + a / 2
a := a – b / 2

  25. У исполнителя Квадратор две команды, которым присвоены номера:

    1. возведи в квадрат
2. вычти 2

    Исполнитель работает только с натуральными числами. Составьте алгоритм получения из числа 4 числа 142, содержащий не более 5 команд. В ответе запишите только номера команд. Если таких алгоритмов более одного, то запишите любой из них.

  26. Робот находится в верхней клетке узкого вертикального коридора. Ширина коридора – одна клетка, длина коридора может быть произвольной.

    Напишите для Робота алгоритм, закрашивающий все клетки внутри коридора и возвращающий Робота в исходную позицию.

  27. Чертёжнику был дан для исполнения следующий алгоритм:

    Повтори 3 раз
  Сместиться на (–2, –3) 
  Сместиться на (3, 4)
конец
Сместиться на (–4, –2)

  28. У исполнителя Квадратор две команды, которым присвоены номера:

    1. возведи в квадрат
2. вычти 1

    Исполнитель работает только с натуральными числами. Составьте алгоритм получения из числа 2 числа 13, содержащий не более 5 команд. В ответе запишите только номера команд. Если таких алгоритмов более одного, то запишите любой из них.

  29. На бесконечном поле имеется лестница. Сначала лестница спускается вниз справа налево, затем спускается вниз слева направо. Высота каждой ступени – одна клетка, ширина – две клетки. Робот находится справа от верхней ступени лестницы. Количество ступенек, ведущих влево, и количество ступенек, ведущих вправо, неизвестно.

    Напишите для Робота алгоритм, закрашивающий все клетки, расположенные непосредственно над ступенями лестницы, спускающейся слева направо.

  30. Определите, что будет напечатано в результате работы следующей программы.

    Var s,k: integer;
Begin
  s:=0;
  for k:=1 to 11 do
    s:=s+12;
  write(s);
End.

results matching ""

    No results matching ""