Составить программу для вычисления значения функции у (х) :

у = 0, если х<=0,

х в квадрате, если х>0

Question

Емельяна

2 мая, 21:13

+3

Ответы (1)

Знаете ответ?

Агита · Answer 1

Var x, y:integer;

begin

writeln ('input x') ;

if x<=0 then y:=0 else y:=sqr (x) ;

writeln ('y=', y) ;

end.

Составить программу для вычисления значения функции у (х) :у = 0, если х<=0,х в квадрате, если х>0