Дракон имеет 3 головы: Сапфир с номером 1, Рубин с номером 2 и Изумруд с номером 3....

Question

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

Comments

pascal?

---

да

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 div 10) mod 10) and ((i div 10)mod 10 >= i mod 10) then
writeln('Наибольшая длина у ',b,' дракона')
else
writeln('Наибольшая длина у ',c,' дракона');
end.

Comments

спасибо огромное