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

Есть ответ
17.12.2022
211

Ответ


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


Если вы нашли правильное решение, вы можете поблагодарить нас начиная с 10 рублей.
Просто нажмите на кнопку "Подарить".
17.12.2022
Этот сайт использует cookies (Политика Cookies). Вы можете указать условия хранения и доступ к cookies в своем браузере.