• Дано натуральное двузначное число .Если цифры одинаковы ,то увеличить заданное число в 2 раза ,если разные то большую заменить на 0. помогите решить задачу на паскале ((срочно

Ответы 1

  • var a,b,c:integer;

    begin writeln ('Введите любое двузначное число '); readln(a); b:=a mod 10; c:=a div 10; if b=c then writeln ('Число после выполнения операции ', a*2); if b>c then writeln ('Число после выполнения операции ',(c),'0'); if b<c then writeln ('Число после выполнения операции 0',(b));end.

  • Добавить свой ответ

Еще вопросы

Войти через Google

или

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

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

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