Помогите напсать 2 программу,или любую другую.БУДУ СЕРДЕЧНО БЛАГОДАРНА!

Question

Помогите напсать 2 программу,или любую другую.БУДУ СЕРДЕЧНО БЛАГОДАРНА!

---

Answer 1

Var x, y : integer;
begin
write('введи х: ' );
readln(x);
if x < 5 
 then y := (4*x*x + 1)/(x-5);
 else y := 3*x*x -2
writeln(y);
end

Comments

к 4 задаче тоже вместо алгоритма написал код, до этого в дороге был. смотри другой вопрос

---

Спасибо огромное