Яблочки Ограничение времени 2 секунды

Ограничение памяти 64Mb

Ввод стандартный ввод или input. txt

Вывод стандартный вывод или output. txt После очередного успеха на олимпиаде Никита и Кирилл решили открыть собственный бизнес. Бизнес не простой, а золотой - продажа яблок сорта Golden. Миллионер Семён решил порадовать любимую мамочку - купить ей вкусных яблок. Он пришёл на импровизированный рынок НиК, где работали Никита и Кирилл. Семён решил купить все яблоки, благо денег у него хватает. Продав все яблоки, Никита и Кирилл стали считать прибыль. Известно, что Никита продал A яблок по M тугриков, а Кирилл продал B яблок по N тугриков. К сожалению, с математикой у ребят плохо, поэтому они хотят узнать у вас, кто же получил бОльшую прибыль. Формат вводаФормат выводаВыведите единственное целое число - заработок продавца, получившего бОльшую прибыль. Пример

Ввод Вывод

8 2 2 3 16

Question

Информатика

Созонтий

1 июня, 08:45

Яблочки Ограничение времени 2 секунды

Ограничение памяти 64Mb

Ввод стандартный ввод или input. txt

Вывод стандартный вывод или output. txt После очередного успеха на олимпиаде Никита и Кирилл решили открыть собственный бизнес. Бизнес не простой, а золотой - продажа яблок сорта Golden. Миллионер Семён решил порадовать любимую мамочку - купить ей вкусных яблок. Он пришёл на импровизированный рынок НиК, где работали Никита и Кирилл. Семён решил купить все яблоки, благо денег у него хватает. Продав все яблоки, Никита и Кирилл стали считать прибыль. Известно, что Никита продал A яблок по M тугриков, а Кирилл продал B яблок по N тугриков. К сожалению, с математикой у ребят плохо, поэтому они хотят узнать у вас, кто же получил бОльшую прибыль. Формат вводаФормат выводаВыведите единственное целое число - заработок продавца, получившего бОльшую прибыль. Пример

Ввод Вывод

8 2 2 3 16

+1

Ответы (1)

Знаешь ответ?

Марея · Answer 1

Для начала создайте файл типа блокнот (расширение. txt) под названием input. Файл output создастся автоматически. Program apple; Uses crt; Var a, b, m, n: integer; f1, f2: text; Begin Assign (f1, 'input. txt'); Assign (f2, 'output. txt'); Reset (f1); Rewrite (f2); Readln (a, m, b, n); If a*m>b*n then Writeln (f2, a*m) Else writeln (f2, b*n); Close (f1); Close (f2); End.