Помогите пожалуйста. Очень срочно! Решается оценка между 4 и 5, мне надо 5, прошу помогите.
Ответ:
Var
x, y :integer;
Begin
Readln(y);
y:=y*2;
If y<20 then x:=5*y+12 else x:=y+12;</p>
x:=x/2;
Write(x);
End.
Объяснение:
Думаю я смог помочь!?