Question

Помогите пожалуйста. Очень срочно! Решается оценка между 4 и 5, мне надо 5, прошу помогите.​

Answer 1

Ответ:

Var

x, y :integer;

Begin

Readln(y);

y:=y*2;

If y<20 then x:=5*y+12 else x:=y+12;

x:=x/2;

Write(x);

End.

Объяснение:

Думаю я смог помочь!?