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

1

Ответы и объяснения

2013-02-28T23:27:13+04:00

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.