Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше. (Ответ "Первая цифра","Вторая цифра" или "Равны").

Question

Информатика

Агапия

22 августа, 20:57

Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше. (Ответ "Первая цифра","Вторая цифра" или "Равны").

+3

Ответы (1)

Знаете ответ на вопрос?

Харламп · Answer 1

Program Task;

Var a, b, c: Integer;

Begin

Write ('a = ') ;

ReadLn (a) ;

If (a 99) Then

WriteLn ('Число не двузначное')

Else

Begin

b : = a Div 10;

c : = a - (b * 10) ;

If b > c Then

WriteLn ('Первая цифра')

Else if b < c Then

WriteLn ('Вторая цифра')

Else

WriteLn ('Равны')

End;

ReadLn;

End.