Предмет: Информатика,
автор: Viк
Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше. (Ответ "Первая цифра","Вторая цифра" или "Равны").
Ответы
Автор ответа:
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.
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.
Похожие вопросы
Предмет: Алгебра,
автор: kondaurova18
Предмет: Информатика,
автор: alinapugaeva2019
Предмет: Французский язык,
автор: Аноним
Предмет: История,
автор: Катюня0166
Предмет: Математика,
автор: ZoЛуШкА