Даны два различных вещественных числа. определить а)какое больше , б) как какое меньше. p.s. должно быть "начало", "ввод числа " и т.д.

//PascalABC.NET
//Версия 3.3, сборка 1611 
begin
var (a,b):=ReadReal2('введите 2 числа через пробел');
if a<b then write(a,'<',b) else if (a>b) then write(a,'>',b) else write(a,'=',b);
end.

Объяснение:

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) Не могу ответить, потому что нет фрагмента программы.