Помогите написать в Pascal. Даны два числа, если второе число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения
Помогите написать в Pascal.
Даны два числа, если второе число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения
Гость
Ответ(ы) на вопрос:
Гостьvar a,b:real;
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.
Не нашли ответ?
Похожие вопросы