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.

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