Тема: abc pascal. простые и составные условия. алгорическая конструкция (if, then, else и проч.) задача 1 заданы два целых числа. напечатать делится ли первое на второе нацело. задача 2 напечатать, является ли заданное число чётным. задача 3 вводятся 3 числа. найти наибольшее.

Ниже представлены решения трех задач на языке PascalABC.NET с использованием условного оператора if-then-else и логических выражений. Основные понятия

• mod: оператор нахождения остатка от деления. Если a mod b = 0, значит число $a$ делится на $b$ нацело. if <условие> then <действие1> else <действие2>: ветвление. Если условие истинно, выполняется действие после then, иначе — после else. Простые условия: сравнение двух величин ( $>$, $<$, $=$, $<>$, $<=$, $>=$). Составные условия: объединение нескольких условий с помощью and (и) или or (или).

Задача 1: Делимость первого числа на второе Программа проверяет, равен ли остаток от деления первого числа на второе нулю. pascal

program Task1; var a, b: integer; begin write('Введите два целых числа: '); readln(a, b); if b = 0 then writeln('Ошибка: на ноль делить нельзя') else if a mod b = 0 then writeln(a, ' делится на ', b, ' нацело') else writeln(a, ' не делится на ', b, ' нацело'); end. 

Use code with caution.Задача 2: Проверка числа на четность Число называется четным, если оно делится на 2 без остатка. pascal

program Task2; var n: integer; begin write('Введите целое число: '); readln(n); if n mod 2 = 0 then writeln('Число ', n, ' является четным') else writeln('Число ', n, ' является нечетным'); end. 

Use code with caution.Задача 3: Нахождение наибольшего из трех чисел Здесь используется составное условие с оператором and для сравнения одного числа сразу с двумя другими. pascal

program Task3; var a, b, c, max: integer; begin write('Введите три числа через пробел: '); readln(a, b, c); if (a >= b) and (a >= c) then max := a else if (b >= a) and (b >= c) then max := b else max := c; writeln('Наибольшее число: ', max); end. 

Use code with caution.

Важное примечание: В третьей задаче использование >= (больше или равно) вместо > позволяет корректно обрабатывать случаи, когда вводе присутствуют одинаковые числа.

Я могу составить для вас аналогичные задачи с использованием вложенных условий или оператора выбора case, если это потребуется для закрепления темы. Хотите рассмотреть более сложные примеры?