Помогите сделать алгоритм пожалуйста!!!!!!!!!!!!!!!!!!!!!!
Answers & Comments
alexooooon
Блок-схема прикреплена сама программа var x:integer; y:real; begin readln(x); if (x>0)then y:=x*x*x; if (x=0)then y:=sqrt(sqr(x)); writeln(y:0:0); (можешь 0 последнюю изменить как хочешь, она определяет кол-во знаков после запятой) end.
Answers & Comments
сама программа
var x:integer;
y:real;
begin
readln(x);
if (x>0)then y:=x*x*x;
if (x=0)then y:=sqrt(sqr(x));
writeln(y:0:0); (можешь 0 последнюю изменить как хочешь, она определяет кол-во знаков после запятой)
end.