Question

Pascal. Даны 2 числа, если первое больше второго по модулю или 2-е число отрицательное, необходимо уменьшить первое число в 5 раз, иначе числа оставить без изменения.

Answer 1

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.

Answer 2

спасибо

Answer 3

иначе числа оставить без изменения - это где в программе?

Answer 4

числа не изменяются значить нечего не надо писать

Answer 5

понятно?

Answer 6

это ведь нужно указать в программе) я уже сама сделала немного по-другому, спасибо

Answer 7

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.