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

Question

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

---

Comments

Вот фото

---

нет

Answer 1

Ответ:

Паскаль:

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

Begin

If m<8 then</p>

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.

Объяснение:

Comments

Это точно правильно?

---

Последний вопрос, почему написал в конце объяснение и двоеточие и всё

---

А в конце же А и К надо сложить, чтобы найти Е. Тип получится 3 программы