Question

Помогите пж, мне из блок схемы надо сделать программу
ДАМ 30 баллов

Answer 1

Кумир:

алг

|https://znanija.com/task/43136999

|(c) NaaMan

нач

вещ х, у

вывод "х = "

ввод х

если х > 0 то

у := sqrt(х)

иначе

у := х * х

все

вывод "у = ", у

кон

Pascal:

program test;

{znanija.com/task/43136999

(c) NaaMan}

var x,y : real;

begin

 write( 'x = ');

 readln(x);

 if x > 0 then

   y := sqrt(x)

 else

   y := x*x;

 writeln('y = ',y)

end.