Помогите написать в Pascal.
Даны два числа, если второе число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения
Даны два числа, если второе число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения
More Questions From This User See All
Answers & Comments
begin
readln(a,b);
if (abs(a)>b) or (b<0) then
begin
a:=a/5;
writeln(a,' ',b)
end
else
writeln(a,' ',b);
end.