Question

Даны два натуральных числа. определить, значение большего из них и во сколько раз. если числа равны, то вывести "equals". входные данные: во входном потоке заданы два целых числа, перечисленные через пробел.значения каждого из них не превышают 32000 пример входного файла (input.txt) 4 8 выходные данные: в выходной поток ввести два числа через пробел: целое и вещественное с точностью три знака после запятой или строку equals пример выходного файла (output.txt) 8 2.000

Answer 1

PascalABC.NET

var 
 a,b: integer;
 c: real;
begin
 readln(a,b);
 if a>b  then
  begin
   c:=a/b; 
   write(a,c:6:3)
  end else
 if a<b then
  begin
   c:=b/a;
   write(b,c:6:3)
  end else
 write('EQUALS');
end.