Объяснение:
program zero;
var x, y:Integer;
begin
Writeln('Введите число:');
Readln(x);
If x<0 then
y:=Sqr(x)+3
else
y:=(Sqrt(x) - 3)/5;
Writeln('ответ: ', y) ;
Readln
End.
Объяснение:
program zero;
var x, y:Integer;
begin
Writeln('Введите число:');
Readln(x);
If x<0 then
y:=Sqr(x)+3
else
y:=(Sqrt(x) - 3)/5;
Writeln('ответ: ', y) ;
Readln
End.