Широко известный бывший стилист сергей з. увлекся бонистикой — он собирает банкноты. особенно ему нравятся крупные купюры. поэтому он просит выплачивать ему гонорары только такими купюрами, а от мелких с негодованием отказывается. к сожалению, в силу различных обстоятельств сергею не удалось окончить среднюю школу, поэтому он никак не может понять, какая из купюр его последнего гонорара самая крупная. звезда в шоке! сергею, напишите программу, которая определяет порядковый номер самой крупной купюры в его гонораре из трех купюр. формат входных данных с клавиатуры вводятся список из трех целых чисел, равных номиналам российских купюр. числа не превосходят 5000. все числа разные. формат выходных данных вывести на экран порядковый номер (1, 2 или 3) самой крупной купюры в гонораре сергея. примеры входные данные выходные данные 100 5000 500 2 10 50 1000 3
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.
Вот , код проверил , проблем возникнуть не должно.