1) записать условие оператор в котором значение переменной вычисляется по формуле: а+в, если а-нечетное и а*в, если а - четное 2) Вычислить значение функции Функция: x^{2}+5, при х>3 х-8, при х< или = 3 3) Составить алгоритм нахождения большего их 3-х чисел

1) program zz1;

var a, b, n:integer; / / вводим переменные целого типа

begin

write (' введите a '); / / вводим с клавиатуры число a

read (a);

write (' введите b '); / / вводим с клавиатуры число b

read (b);

if a mod 2 = 0 / / проверяем условие

then n:=a + b

else n:=a * b;

write (' значение переменной = ', n); / / выводим ответ

end.

2) program zz1;

var x, y:integer; / / вводим переменные целого типа

begin

write (' введите x '); / / вводим с клавиатуры число x

read (x);

if (x > 3) then y:=x*x+5

else y:=x-8;

write (' значение функции = ', y); / / выводим ответ

end.

3) program zz1;

var a, b, c, n:integer; / / вводим переменные целого типа

begin

write (' введите a '); / / вводим с клавиатуры число a

read (a);

write (' введите b '); / / вводим с клавиатуры число b

read (b);

write (' введите c '); / / вводим с клавиатуры число с

read (c);

if (a > b) and (a > c) then n:=a;

if (b > a) and (b > c) then n:=b;

if (c > b) and (c > a) then n:=c;

write (' большее из трех = ', n); / / выводим ответ

end.