Pascal. Даны 2 числа, если первое больше второго по модулю или 2-е число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения.
Pascal. Даны 2 числа, если первое больше второго по модулю или 2-е число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения.
Гость
Ответ(ы) на вопрос:
Гостьprogram chik;
var a,b:real;
begin
readln(a,b);
if(abs(a)>abs(b))or(b<0)then a:=a/5;
writeln(a:1:3);
writeln(b:1:3);
end.
Гость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.
Не нашли ответ?
Похожие вопросы