Регистрация
Войти
Стать экспертом Правила
Информатика

Даны два натуральных числа. Определить, значение большего из них и во сколько раз. Если числа равны, то вывести "EQUALS".

Входные данные:
Во входном потоке заданы два целых числа, перечисленные через пробел.Значения каждого из них не превышают 32000
пример входного файла (input.txt)
4 8

Выходные данные:
В выходной поток ввести два числа через пробел: целое и вещественное с точностью три знака после запятой или строку EQUALS
Пример выходного файла (output.txt)
8 2.000

ОТВЕТЫ
PascalABC.NET

var 
 a,b: integer;
 c: real;
begin
 readln(a,b);
 if agt;b  then
  begin
   c:=a/b; 
   write(a,c:6:3)
  end else
 if alt;b then
  begin
   c:=b/a;
   write(b,c:6:3)
  end else
 write(EQUALS);
end.
35
Контакты
Обратная связь
support@sproshu.com
Спрошу
О проекте
Новым пользователям
Новым экспертам