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

Answer 2

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

Answer 3

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