Мрорпа
05.11.2021 19:49

Даны два натуральных числа. определить, значение большего из них и во сколько раз. если числа равны, то вывести "equals". входные данные: во входном потоке заданы два целых числа, перечисленные через пробел.значения каждого из них не превышают 32000 пример входного файла (input.txt) 4 8 выходные данные: в выходной поток ввести два числа через пробел: целое и вещественное с точностью три знака после запятой или строку equals пример выходного файла (output.txt) 8 2.000

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
maratkhan0311
20.08.2020 12:47
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.
 
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота