У круга нет углов
у круга нетконца
Вид алгоритма: разветленный
1)расческа,зубная щетка,зубная паста,мыло,мочалка,полотенце -Гигиена.
2) кисточки для рисования,карандаши - канцелярия.
Var x, y: integer;
begin
write('x = ');
readln(x);
if x <= 0 then y := 0;
if ((x > 0) and (x <= 1)) then y := x;
if x > 1 then y := x * x;
writeln(y);
end.
При x = 8, y = 64.
Program qq;
var z,x,y,v:real;
begin
z:=x*x*x+(y+v)-sqrt(0.25*(y+v));
write('Значение z=',z:6:2);
<span>end.
если надо с вводом значений x,y,v тогда вот так
</span>program qq;
var z,x,y,v:real;
begin
write('Введите значение x');
readln(x);
write('Введите значение y');
readln(y);
write('Введите значение v');
readln(v);
z:=x*x*x+(y+v)-sqrt(0.25*(y+v));
write('Значение z=',z:6:2);
end.