Даны два натуральных числа.Определить в каком числе первая цифра больше? написать...

Question

Даны два натуральных числа.Определить в каком числе первая цифра больше?
написать программу

Comments

Данные вводятся с клавиатуры?

---

Да

Answer 1

Var n, k:integer;

begin
     writeln('Введите 2 числа через пробел');
     readln(n, k);
    
     if (strToInt(intToStr(n)[1]) > strToInt(intToStr(k)[1])) then writeln('У первого числа первая цифра больше');
     if (strToInt(intToStr(n)[1]) < strToInt(intToStr(k)[1])) then writeln('У воторого числа первая цифра больше');
     if (strToInt(intToStr(n)[1]) = strToInt(intToStr(k)[1])) then writeln('У первого числа и воторого числа первые цифры равны');
end.

Comments

спасибо

---

А через цикл while возможно?

---

В этой программе циклов вообще нет