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

Question

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

Answer 1

Var a,b:real;
begin
readln(a,b);
if (abs(a)>b) or (b<0) then<br>begin
a:=a/5;
writeln(a,' ',b)
end
else
writeln(a,' ',b);
end.

Answer 2

Program chik;
var a,b:real;
begin
readln(a,b);
if(abs(a)>abs(b))or(b<0)then a:=a/5;<br>writeln(a:1:3);
writeln(b:1:3);
end.

Comments

большое спасибо! вы не подскажите сайт, где хорошо написано, как пользоваться программой и как ее писать? в школе меня материал нетустраивает, отчего я путаюсь

---

http://the-programmer.ru/publ/java/obuchenie_java/23

---

не устраивает*

---

http://pascal-cod.ru

---

спасибо

---

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

---

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

---

понятно?

---

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