Объяснение:
1) четным. Функция a mod 2 возвращает остаток от деления числа а на 2.
Если остаток равен 0, то число а четное.
2) 20.
a = 100; b = 30; a = 100 - 3*30 = 10
c = b - a = 30 - 10 = 20
3) if переводится как если, и не только в условном операторе, а вообще по-английски.
4) (x=3) or (x=4).
Вообще-то любое из этих выражений может быть использовано, как условие.
Если нет проверки на равенство числу, то подразумевается проверка на равенство нулю.
Но, скорее всего, имеется ввиду именно это выражение.
5) if a<b then min := a; else min := b;
Ошибка: после min := a точка с запятой не нужна.
6) Условие: a < 17
7) Нет верного ответа, потому что не бывает треугольника с тремя прямыми углами.
8) Не могу ответить, потому что нет фрагмента программы.
Объяснение:
1) четным. Функция a mod 2 возвращает остаток от деления числа а на 2.
Если остаток равен 0, то число а четное.
2) 20.
a = 100; b = 30; a = 100 - 3*30 = 10
c = b - a = 30 - 10 = 20
3) if переводится как если, и не только в условном операторе, а вообще по-английски.
4) (x=3) or (x=4).
Вообще-то любое из этих выражений может быть использовано, как условие.
Если нет проверки на равенство числу, то подразумевается проверка на равенство нулю.
Но, скорее всего, имеется ввиду именно это выражение.
5) if a<b then min := a; else min := b;
Ошибка: после min := a точка с запятой не нужна.
6) Условие: a < 17
7) Нет верного ответа, потому что не бывает треугольника с тремя прямыми углами.
8) Не могу ответить, потому что нет фрагмента программы.
Первые два вчера
В третьем не уверен в самом алгоритме...
var
a, b, x, y, z : real;
begin
read (a, b, c, x, y);
if ((a <= x) and (b <= y)) or ((a <= y) and (b <= x))
or ((a <= x) and (b <= z)) or ((a <= z) and (b <= x))
or ((a <= z) and (b <= y)) or ((a <= y) and (b <= z)) then writeln ('YES') else writeln ('NO');
end.