1. Напишите определение условного оператора (1б).

2. And, or и not - это ... операторы (1б).

3. Алгоритмическая запись условного оператора имеет 2 формы записи. Какие?(1б)

4. Есть ли в Python оператор выбора? (1б)

5. Для чего применяют конструкцию if-elif-else в Питоне? (1б)

6. Написать программу с оператора if-elif-else.

В некотором учебном заведении действуют следующие правила приема. Абитуриенты сдают три экзамена. Если они набирают от 13 до то это дает право поступить на дневное отделение, от 10 до 12 — вечернее, от 8 до 9 - заочное и ниже - отказ в приеме на учебу. Записать программу, которая в зависимости от суммы набранных сообщает абитуриенту его права на поступление.

ответ: y = 10

Объяснение:

Рассмотрим последовательность команд: 11112

Была применена 4 раза команда 1, то есть +7. То есть было четыре раза прибавлена семерка.

Найдем каким стало число после 4ех команд (4 раза прибавить 7):

2 + (4 * 7) = 30

Далее была произведена 2 команда, то есть 30 умножили на какое-то неизвестное y.

Мы знаем, что после 5ой и последней команды число стало 300, то есть мы с легкостью может найти y, решив простое уравнение (число после применения 4ой команды умножить на y равняется итоговому - 300):

30 * y = 300

Очевидно, что у = 10.

Type
  mass = array[1..10, 1..10] of real;

var
  a, b, c: mass;
  n, m, i, j, n1, m1: integer;

procedure MatrA(var a: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
    begin
      writeln('a[', i, ',', j, ']: ');
      readln(a[i, j])
    end
end;

procedure MatrB(var b: mass);
var
  i, j: integer;
begin
  for i := 1 to n1 do
    for j := 1 to m1 do
    begin
      writeln('b[', i, ',', j, ']: ');
      readln(b[i, j])
    end
end;

procedure Sum(a, b: mass; var c: mass);
var
  i, j: integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      c[i, j] := a[i, j] + b[i, j];
end;

begin
  writeln('Введите n,m матрицы A');
  readln(n, m);
  MatrA(a);
  writeln('Введите n,m матрицы B');
  readln(n1, m1);
  MatrB(b);
  if (n1 <> n) and (m1 <> m) then
    writeln('Матрицы сложить нельзя')
  else begin
    Sum(a, b, c);
    writeln('A+B');
    for i := 1 to n do
    begin
      for j := 1 to m do
        write(c[i, j]:1:3, ' ');
      writeln
    end
  end;
  readln;
end.