Новые сообщения · Правила  
Страница 1 из 11
Модератор форума: Berestovskiy 
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задачи в Turbo Pascal
Решение задачи в Turbo Pascal
Даны целые числа х, у. Если сумма х и у отрицательна, то каждое значение заменить его модулем; если неотрицательна, то оба значения увеличить на 5; если сумма принадлежит отрезку [5, 20], то оба значения уменьшить в 10 раз; в остальных случаях х и у оставить без изменения.(Оператор варианта)
1 | Автор: unika | 2012-05-05, 13:04   |  Репутация: [ + 0 ]
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
2 | Автор: Berestovskiy | 2012-05-05, 14:48   |  Репутация: [ + 211 ]
Форум ПРОГРАММИСТОВ » ПРОГРАММИРОВАНИЕ » Паскаль » Решение задачи в Turbo Pascal
Страница 1 из 11
Поиск: