Привет, мне нужна помощь с домашней работой. Мое домашнее задание во вложениях.

1

Ответы и объяснения

2013-05-21T06:49:48+00:00

uses crt;
var x,y: integer;
begin
readln(x);
if x <= -50 then
begin y:=500; writeln(y); end
else
if ((x>-50) and ( x<=50))then
begin
y:=3+2*abs(x); writeln(y); end
else y:=abs(x*x*x); writeln(y);
readln;
end.