• Пожалуйста, помогите с решением 7 ой задачи. Программу нужно написать в Паскале.

    question img

Ответы 1

  • USES crt;VAR a,b,c: integer;begincls;repeatWRITE('Введите двухзначное число: '); READLN (a);until (a>=10)and(a<=99);b:=a div 10;c:=a mod 10;if b>c then writeln ('Первая цифра больше.');if b<c then writeln ('Вторая цифра больше.');if b=c then writeln ('Первая и вторая цифры равны.');END.
    • Автор:

      gracelyn
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years