|
Даны целые числа х, у. Если сумма х и у отрицательна, то каждое значение заменить его модулем; если неотрицательна, то оба значения увеличить на 5; если сумма принадлежит отрезку [5, 20], то оба значения уменьшить в 10 раз; в остальных случаях х и у оставить без изменения.(Оператор варианта)
|
|
|
|
var
x,y:integer;
begin
readln(x,y);
if x+y<0 then begin x:=abs(x+y);y:=x;writeln(x,' ',y);end else
if x+y>0 then begin x:=x+5;y:=y+5;writeln(x,' ',y);end else
if (x+y>=5)and(x+y<=20) then begin x:=round(x/10);y:=round(y/10);writeln(x,' ',y);end else
writeln(x,' ',y);
end.
Нужна помощь? Сюда: vkontakte.ru/berestovskiy
|
|
|
|
