СРОЧНО 30 БАЛЛОВ
ИНФОРМАТИКА​

1 Вариант

1) Функция сравнивает два числа и если первое число больше второго, то находит их сумму, в противном случае находит их произведение.

a) a=6 b = 5; func(a,b) = 11

б) a=5 b = 6; func(a,b) = 30

2)

program chet;

var a:integer;

function check(x:integer):byte;

begin

if x mod 2 = 0 then check:=1 else check:=0

end;

begin

readln(a);

write(check(a))

end.

Вариант 2

1) Функция производит возведение числа x в степень y

a) x = 4 y = 3 ; s(x,y) = 64

б) x = 5 y = -2; s(x,y) = 0.04

2)

program module;

var a:real;

function modul(x:real):real;

begin

if x<0 then modul:=-x else modul:=x

end;

begin

readln(a);

write(modul(a))

end.