Задание:
Дано натуральное двузначное число. Если цифры одинаковы, то увеличить заданное число в 2 раза, если разные то большую заменить на 0. Помогитерешить задачу на паскале (срочно
Решение:
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 Знаете другой ответ?