Дракон имеет 3 головы: Сапфир с номером 1, Рубин с номером 2 и Изумруд с номером 3. Головы Дракона извергают пламя некоторой длины. Определить, какая из его голов извергает пламя наибольшей длины. Длина пламени определена в виде трёхзначного числа. Первая цифра этого числа показывает длину пламени, которую извергает Сапфир, вторая цифра показывает длину пламени, которую извергает голова Рубин, а третья цифра - голова Изумруд.

Вводится число N - трёхзначное число, 100
Пример: Вход=275, Результат=2;

Очень важно все объяснить. Нужна Ваша помощь.

Question

Информатика

Эдуардик

20 июля, 05:08

Дракон имеет 3 головы: Сапфир с номером 1, Рубин с номером 2 и Изумруд с номером 3. Головы Дракона извергают пламя некоторой длины. Определить, какая из его голов извергает пламя наибольшей длины. Длина пламени определена в виде трёхзначного числа. Первая цифра этого числа показывает длину пламени, которую извергает Сапфир, вторая цифра показывает длину пламени, которую извергает голова Рубин, а третья цифра - голова Изумруд.

Вводится число N - трёхзначное число, 100
Пример: Вход=275, Результат=2;

Очень важно все объяснить. Нужна Ваша помощь.

+5

Ответы (1)

Знаете ответ?

Андроника · Answer 1

Var a, b, c, i:integer;

begin

a:=1;

b:=2;

c:=3;

write ('Введите трехзначное число: ') ;

readln (i) ;

if (i div 100 = (i div 10) mod 10) and (i div 100 = i mod 10) then

writeln (0)

else if (i div 100 > = (i div 10) mod 10) and (i div 100 > = i mod 10) then

writeln ('Наибольшая длина у ', a,' дракона')

else if (i div 100 = i mod 10) then

writeln ('Наибольшая длина у ', b,' дракона')

else

writeln ('Наибольшая длина у ', c,' дракона') ;

end.