• 
  • 03 January 2021
  Информатика
  • Автор: aliens21343

  

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

• 
  • 03 January 2021
  • Ответ оставил: romanrezvanov

  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.

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

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: информатика.
  На сегодняшний день (15.11.2024) наш сайт содержит 16353 вопросов, по теме: информатика. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

  Ответить на вопрос

Последние опубликованные вопросы