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

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

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

Question

Лара

22 ноября, 22:03

+4

Ответы (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