Предмет: Информатика,
автор: Nastya021192
Даны два натуральных числа. Определить, значение большего из них и во сколько раз. Если числа равны, то вывести "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
Не знаю, у меня все работает
Похожие вопросы
Предмет: Русский язык,
автор: dariabrineva
Предмет: Математика,
автор: creepyfriend
Предмет: История,
автор: ynakob08
Предмет: История,
автор: OlesyaVsegda5
Предмет: География,
автор: Яночка1111111