Даны два натуральных числа. Определить, значение большего из них и во сколько раз. Если числа равны, то вывести "EQUALS".
Входные данные:
Во входном потоке заданы два целых числа, перечисленные через пробел.Значения каждого из них не превышают 32000
пример входного файла (input.txt)
4 8
Выходные данные:
В выходной поток ввести два числа через пробел: целое и вещественное с точностью три знака после запятой или строку EQUALS
Пример выходного файла (output.txt)
8 2.000
Ответы
Ответ дал:
0
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.
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.
Ответ дал:
0
Строка 5 Ошибка времени выполнения : Входная строка имела неверный формат
Ответ дал:
0
Не знаю, у меня все работает
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
9 лет назад