Решить систему уравнений
Составить программу которая решит эту систему уравнений:
y=-1 есл х>0
y= 0 если x<0
y=1 если x=0
Решение:
program olol;
var x,y:integer;
BEGIN
writeln ('vvesti x');
readln(x);
if (x>0) then y:=-1;
if (x<0) then y:=0;
if (x=0) then y:=1;
writeln(y)
END.
|
| Категория: Простые задачи | Добавил: deespe (29.01.2011)
|
| Просмотров: 3737
| Рейтинг: 1.0/1 |
|
