Обширно известный былой стилист Сергей З. увлекся бонистикой он собирает
Обширно знаменитый бывший стилист Сергей З. увлекся бонистикой он собирает банкноты. Необыкновенно ему нравятся большие купюры. Поэтому он просит оплачивать ему гонорары только такими купюрами, а от маленьких с негодованием отрицается.
К раскаянью, в силу разных событий Сергею не удалось закончить среднюю школу, потому он никак не может осознать, какая из купюр его заключительного гонорара самая большая. Звезда в шоке!
Помогите Сергею, напишите программку, которая определяет порядковый номер самой большой купюры в его гонораре из 3-х купюр.
Формат входных данных
С клавиатуры вводятся список из 3-х целых чисел, равных номиналам русских купюр. Числа не превосходят 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 gt; 5000) or (y gt; 5000) or(z gt; 5000) ) then goto 1;
if (xgt;y) and (xgt;z) then WriteLn('Наибольшая купюра = ','1') else
if (ygt;x) and (ygt;z) then WriteLn('Наибольшая купюра = ', '2') else
if (zgt;x) and (zgt;y) then WriteLn('Наибольшее купюра = ', '3');
End.
Вот , код проверил , проблем появиться не обязано.
-
Вопросы ответы
Статьи
Информатика
Статьи
Математика.
Физика.
Математика.
Разные вопросы.
Разные вопросы.
Математика.
Разные вопросы.
Математика.
Физика.
Геометрия.