Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

Дано натуральное двузначное число .Если цифры одинаковы ,то увеличить заданное число в 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 bend.