По Паскалю! 21. Вводятся два числа в компьютер. Если первое число больше второго, то нужно найти их сумму. В противном

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

Решение 21:
Давайте приступим к решению задачи. Введем два числа с клавиатуры и запишем их в переменные. Затем проверим, является ли первое число больше второго. Если это условие выполняется, то мы найдем их сумму и выведем ее на экран. Если же это условие не выполняется, то мы найдем их произведение и также выведем его на экран. В конце программы выведем сообщение "Решено". Предлагаю взглянуть на код программы на языке Паскаль:

\[
\begin{{array}}{{l}}
\text{{program Task21;}} \\
\text{{var}} \\
\quad \text{{num1, num2, sum, product : integer;}} \\
\text{{begin}} \\
\quad \text{{writeln("Введите первое число: ");}} \\
\quad \text{{readln(num1);}} \\
\quad \text{{writeln("Введите второе число: ");}} \\
\quad \text{{readln(num2);}} \\
\quad \text{{if num1 > num2 then}} \\
\quad \quad \text{{begin}} \\
\quad \quad \quad \text{{sum := num1 + num2;}} \\
\quad \quad \quad \text{{writeln("Сумма чисел: ", sum);}} \\
\quad \quad \text{{end}} \\
\quad \text{{else}} \\
\quad \quad \text{{begin}} \\
\quad \quad \quad \text{{product := num1 * num2;}} \\
\quad \quad \quad \text{{writeln("Произведение чисел: ", product);}} \\
\quad \quad \text{{end;}} \\
\quad \text{{writeln("Решено");}} \\
\text{{end.}}
\end{{array}}
\]

Решение 22:
Теперь перейдем к решению второй задачи. Для начала, мы должны ввести три длины отрезков с клавиатуры и сохранить их в отдельные переменные. Затем мы проверим, верно ли утверждение о том, что первый отрезок не слишком короткий, чтобы можно было составить треугольник с двумя другими отрезками. Для этого нужно сравнить длину первого отрезка с суммой длин двух других отрезков. Если это условие выполняется, то компьютер выведет сообщение "Верно". В противном случае, будет выведено сообщение "Неверно". Давайте посмотрим на код программы на языке Паскаль:

\[
\begin{{array}}{{l}}
\text{{program Task22;}} \\
\text{{var}} \\
\quad \text{{length1, length2, length3: integer;}} \\
\text{{begin}} \\
\quad \text{{writeln("Введите длину первого отрезка: ");}} \\
\quad \text{{readln(length1);}} \\
\quad \text{{writeln("Введите длину второго отрезка: ");}} \\
\quad \text{{readln(length2);}} \\
\quad \text{{writeln("Введите длину третьего отрезка: ");}} \\
\quad \text{{readln(length3);}} \\
\quad \text{{if length1 < length2 + length3 then}} \\
\quad \quad \text{{writeln("Верно")}} \\
\quad \text{{else}} \\
\quad \quad \text{{writeln("Неверно")}} \\
\quad \text{{writeln("Решено");}} \\
\text{{end.}}
\end{{array}}
\]

Надеюсь, что эти пошаговые решения помогут вам лучше понять и решить данные задачи.