1) Дано двузначное число. Определить: одинаковы ли его числа. 2) Мастями игральных…

2) Program Masty Uses Crt; var n: integer; begin clrscr; write ('введи номер масти 1-4: '); readln (n); case n of 1: writeln ('Пики'); 2: writeln ('Трефы'); 3: writeln ('Бубны'); 4: writeln ('Червы'); else writeln ('Неправильный номер масти'); end; readkey; end. 1) Program Cifry; Uses Crt; var n: integer; s: string[2]; begin clrscr; write ('введи двузначное целое число: '); readln (n); str (abs (n) ,s); if (s[1]=s[2]) then writeln ('Цифры числа одинаковые') else writeln ('Цифры числа не одинаковые'); readkey; end.