Контрольная работа по информатике по теме «Основные алгоритмические конструкции»
Вариант 2

Фамилия, Имя Класс
Задание 1.
1.1 Выберите правильный ответ на вопрос.
Какая команда позволяет ввести данные в память компьютера с
клавиатуры?
a)int() b)print() c)goto() d)input()
1.2 Выберите правильный ответ на вопрос.
Какая из операций позволяет вычислить целую часть от деления
числа a на число b?
a) a**b b) a//b c) a%b d) a*/b
1.3 Напишите ответ на вопрос.
Какой цикл называют циклом с неизвестным количеством

повторений?
Задание 2. Реализуйте код для решения задачи на языке Python.
В памяти компьютера храниться число. Выведи на экран данное число,
а также его четверть.
Задание 3. Реализуйте код для решения задачи на языке Python.
С клавиатуры вводится число. Определи, является ли оно нечетным и
выведи соответствующее сообщение на экран.
Задание 4. Реализуйте код для решения задачи на языке Python.
С клавиатуры вводятся два числа. Вычислите для них (если это
возможно) значение выражения 7a
3−b
+
9∗b
10

Задание 5. Реализуйте код для решения задачи на языке Python.
С клавиатуры вводится целое число. Найдите сумму цифр данного
числа.
Например, число 293. Сумма его цифр 2+9+3=14

PascalABC.NET

const
  n=10;
var
  a:array[1..n,1..n] of integer;
  i,j,kp,kq:integer;
  p,q:array of integer; // динамические массивы
begin
  Randomize;
  Writeln('Исходный массив из случайных чисел');
  kp:=0; kq:=0;
  SetLength(p,n*n); SetLength(q,n*n);
  for i:=1 to n do begin
    for j:=1 to n do begin
      a[i,j]:=Random(101)-50; // диапазон [-50;50]
      Write(a[i,j]:4);
      if a[i,j]>0 then begin p[kp]:=a[i,j]; Inc(kp) end
      else
        if a[i,j]<0 then begin q[kq]:=a[i,j]; Inc(kq) end
      end;
    Writeln
  end;
  SetLength(p,kp); SetLength(q,kq); // отрегулировали по заполнению
  Writeln('Положительные');
  for i:=0 to kp-1 do Write(p[i],' '); Writeln;
  Writeln('Отрицательные');
  for i:=0 to kq-1 do Write(q[i],' '); Writeln
end.

Пример
Исходный массив из случайных чисел
  46  47  -8 -32  36  41 -49 -15  25 -33
  18  15   1  15  21  43  30  41 -15 -21
 -48  15  -5  17  19  30 -38   0  10  11
 -16  10  48 -30 -40 -49 -48  24  18  24
  47  45  50  44  -3 -15  19  29 -13  38
 -23   3 -23  19  19 -19   1  26   0 -45
  28   1  26 -36  34 -43  18 -19   4  19
  41 -45 -27  12 -18 -43  16   1 -31 -17
 -39 -16 -37  22 -17  31 -17 -22   1  30
   0 -24 -27  12  46  -4 -32  36 -40 -11
Положительные
46 47 36 41 25 18 15 1 15 21 43 30 41 15 17 19 30 10 11 10 48 24 18 24 47 45 50 44 19 29 38 3 19 19 1 26 28 1 26 34 18 4 19 41 12 16 1 22 31 1 30 12 46 36
Отрицательные
-8 -32 -49 -15 -33 -15 -21 -48 -5 -38 -16 -30 -40 -49 -48 -3 -15 -13 -23 -23 -19 -45 -36 -43 -19 -45 -27 -18 -43 -31 -17 -39 -16 -37 -17 -17 -22 -24 -27 -4 -32 -40 -11

Program ex;

// Функция для определения из двух чисел минимальное
function min(a, b: real): real;
begin
    if (a > b) then min := b else min := a
end;

// Функция для определения из двух чисел максимальное
function max2(a, b: real): real;
begin
    if (a > b) then max2 := a else max2 := b
end;

// Функция для определения из трех чисел максимальное
function max3(a, b, c: real): real;
begin
    // Сначала определяем максимальное из первых двух чисел,
    // затем у нас останется два числа и нам остается определить
    // максимальное из них
    max3 := max2(max2(a, b), c);
end;

var
    x, y, z, d, max_int: real;
begin
    writeln('Введите 4 числа');
    readln(x, y, z, d);
    max_int := max3(min(x, y), min(x, z), min(z, d));
    writeln(max_int);
end.