Решите информатику 4 пример и 5

Question

Решите информатику 4 пример и 5

---

Answer 1

Блок-схема - в прилагаемом файле.
var x,y:real;
begin
readln(x);
if x>=1 then y:=x*x+3/sqrt(x)
else y:=sin(2*x);
writeln('y = ',y:7:5);
end.

Пример:
2.5
y = 8.14737

---