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