Вопрос PASCAL!!! Дано двузначное число. Определить, какая из его цифр больше, первая или вторая.

[valik]

Пожалуйста помогите написать такую программу.

Дано двузначное число. Определить, какая из его цифр больше, первая или вторая. (Предусмотреть возможность их равенства)!!!

Спасибо.

 

[Fraim]

Чтобы определить вторую цифру - берешь остаток от деления на 10. Это и есть вторая цифра. Присваиваешь это значение переменной x2. Первая цифра - это из изначального двузначного числа отнять вторую цифру (x2) и разделить полученное значение на 10. (Либо просто использовать целочисленное деление 2значного числа на 10 и получить первую цифру). Результат присвоить переменной x1. А затем через условия сравнивать эти x1 и x2 и выводить результат.

 

[Whispering]

Re: PASCAL!!! Дано двузначное число. Определить, какая из его цифр больше, первая или

Пожалуйста помогите написать такую программу.

Дано двузначное число. Определить, какая из его цифр больше, первая или вторая. (Предусмотреть возможность их равенства)!!!

Спасибо.

label loop;
var
n:integer;
d:array[1..2]of integer;
i:integer;
begin
loop:
i:=1;
repeat 
writeln('n = ');
readln(n);
until (n>9) and (n<100);

while n>0 do begin
   d[i]:=n mod 10;
   i:=i+1;
   n:=n div 10;
end;

if d[1]=d[2] then
begin
writeln('Numbers equal');
goto loop;
end;

if d[1]>d[2] then
writeln('Number ' , d[1] , ' Bigger then number ' , d[2])
else
writeln('Number ' , d[2] , ' Bigger then number ' , d[1]);
goto loop;
end.