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