Широко известный бывший стилист Сергей З. увлекся бонистикой — он собирает банкноты....

Question

Широко известный бывший стилист Сергей З. увлекся бонистикой — он собирает банкноты. Особенно ему нравятся крупные купюры. Поэтому он просит выплачивать ему гонорары только такими купюрами, а от мелких с негодованием отказывается. К сожалению, в силу различных обстоятельств Сергею не удалось окончить среднюю школу, поэтому он никак не может понять, какая из купюр его последнего гонорара самая крупная. Звезда в шоке! Помогите Сергею, напишите программу, которая определяет порядковый номер самой крупной купюры в его гонораре из трех купюр. Формат входных данных С клавиатуры вводятся список из трех целых чисел, равных номиналам российских купюр. Числа не превосходят 5000. Все числа разные. Формат выходных данных Вывести на экран порядковый номер (1, 2 или 3) самой крупной купюры в гонораре Сергея. Примеры входные данные выходные данные 100 5000 500 2 10 50 1000 3

Answer 1

program money;

label 1;

var

x,y,z : smallint;

Begin

1 : WriteLn('Введите 3 купюры до 5000');

ReadLn(x,y,z);

if ((x > 5000) or (y > 5000) or(z > 5000) ) then goto 1;

if (x>y) and (x>z) then WriteLn('Максимальная купюра = ','1') else

 if (y>x) and (y>z) then WriteLn('Максимальная купюра = ', '2') else

   if (z>x) and (z>y) then WriteLn('Максимальное купюра = ', '3');  

   

   End.

Вот , код проверил , проблем возникнуть не должно.