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