Задать вопрос
22 августа, 20:57

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

+5
Ответы (1)
  1. 23 августа, 00:13
    0
    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.
Знаете ответ на вопрос?
Не уверены в ответе?
Правильный ответ на вопрос 👍 «Ввести с клавиатуры двузначное целое число и определить какая из его цифр больше. (Ответ "Первая цифра","Вторая цифра" или "Равны"). ...» по предмету 📗 Информатика. Развернутая система поиска нашего сайта обязательно приведёт вас к нужной информации. Как вариант - оцените ответы на похожие вопросы. Но если вдруг и это не помогло - задавайте свой вопрос знающим оппонентам, которые быстро дадут на него ответ!
Искать готовые ответы