Question

Напишите программу (в Паскаль) для функции у=х(в кубе)-1 на интервале [-1,3] с шагом 0.2 на трех разных циклах (ДО,ПОКА,ДЛЯ)

Answer 1

Оно?

var x, y: integer;  
begin write ('x = ');
readln (x);
      if x > 0 then y := x - 2 else if x = 0 then y := 0 else y := abs (x);  
writeln ('y = ', y);  
readln end.