Безотлагательно 30 БАЛЛОВИНФОРМАТИКА

1 Вариант

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 xlt;0 then modul:=-x else modul:=x

end;

begin

readln(a);

write(modul(a))

end.