Question

Помогите с инфой, пожалуйста, дам 100 баллов

Answer 1

Ответ:

При условии, что введенные числа - трехзначные:

var a,b: integer;

begin

readln(a,b);

if (a div 100 > b div 100) then

writeln('старшая цифра в записи первого числа больше.')

else if (a div 100 = b div 100) then

writeln('старшие цифры в записи двух чисел равны.')

else  

writeln('старшая цифра в записи второго числа больше.');

end.

Для любых целых чисел:

var a,b: integer;

begin

readln(a,b);

while (a>10) do a:= a div 10;

while (b>10) do b:= b div 10;

if (a > b) then

writeln('старшая цифра в записи первого числа больше.')

else if (a = b) then

writeln('старшие цифры в записи двух чисел равны.')

else  

writeln('старшая цифра в записи второго числа больше.');

end.