Question

даны два различных числа если первое число больше второго , то уменьшить каждое число в 4 раза, иначе увеличить в 3 раза. вывести результат​

Answer 1

Ответ:

program test;

var one,two:real;

begin

 writeln('vvedite pervoe chislo');

 readln(one);

 writeln('vvedite vtoroe chislo');

 readln(two);

 if abs(one)>abs(two) then one:=one/5;

 writeln(one);

end.