Широко известный бывший стилист сергей з. увлекся - вопрос №9534093 от daniil2003m 15.01.2020 14:46

Question

Информатика: Широко известный бывший стилист сергей з. увлекся бонистикой — он собирает банкноты. особенно ему нравятся крупные купюры. поэтому он просит выплачивать ему гонорары только такими купюрами, а от мелких с негодованием отказывается. к сожалению, в силу различных обстоятельств сергею не удалось окончить среднюю школу, поэтому он никак не может понять, какая из купюр его последнего гонорара самая крупная. звезда в шоке! сергею, напишите программу, которая определяет порядковый номер самой крупной купюры

daniil2003m · Answer

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.

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