Question

Построить блок схему и написать программу.​

Answer 1

Ответ:

program z1;

var x,y:real;

begin

read (x);

if x>0 then y:=x*x else y:=x/2;

write (y)

end.

Объяснение:

Смотри картинку