Question

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

2) Мастями игральных карт условно присвоены след. порядковые номера:"пики"-1., "трефы"-2, "бубны"-3, "черви"-4. По заданному номеру масти m(1<или равно m <или равно 4)  определить название соответств. масти.

Пожалуйста помогите. срочно! 

Answer 1

 

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.