Составить программу для вычисления функции. y={x^2,если х<2 √х,если х ≥ 2 0,если х=2

Question

Составить программу для вычисления функции.
y={x^2,если х<2<br> √х,если х ≥ 2
0,если х=2

Answer 1

Задание не совсем верно построено. Скорее всего вторая проверка должна быть строго больше двух, однако вот решение:

program ff;

var
y,x:real;
begin
writeln('Введите x');
readln(x);
if x<2 then y:=sqr(x);<br>if x>=2 then y:=sqrt(x);
if x=2 then y:=0;
writeln('y=',y);
readln();
end.