Question

Срочнооо помогите!!! Отдам 80 баллов!!!

Answer 1

Ответ:

Паскаль:

Function k(y:integer,m:integer):integer

Begin

If m<8 then

K:= 5*y+2

Else

If m>15 then k:=7-3*y

Else k:=10-y*y;

End;

Function a(x:integer,y:integer):integer

Begin

If(8*y+sqrt(y)) then

A:=x+4

Else a:= x;

End;

Begin

Read (x,y,m);

Write(a(x,y)+k(y,m))

End.

Объяснение: