Предмет: Информатика, автор: Viк

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

Ответы

Автор ответа: preceptor
0
Program Task;
Var a, b, c: Integer;
Begin
Write('a = ');
ReadLn(a);
If (a < 10) Or (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.
Похожие вопросы
Предмет: Информатика, автор: alinapugaeva2019
Предмет: Французский язык, автор: Аноним