Проверить и вывести сообщение, являются ли числа одинаковыми

@Paddy · Регистрация: 15.09.2013

Author24 — интернет-сервис помощи студентам

Привет, подскажите, как сделать так, чтобы при проверке на одинаковые 1ую и 2ую цифру в числе выводилось не "true" и "flase", а например, одинаковые числа или не одинаковые числа.

Pascal

var n:integer;
x:boolean;
begin
readln (n);
if (10<=n)and(n<=99) then writeln (n mod 10=n div 10);
else writeln('Íå 2-õ çíà÷íîå');
end.

@erl27 · 23.09.2013, 19:12

Нужно просто вместо проверки равенства вывести сами значения:

Pascal

var 
  n: integer;
  
begin
  readln(n);
  write('Результат:  ');
  if (n >= 10)and(n <= 99) then write(' ', n div 10, ' ', n mod 10)
  else writeln('это не двухзначное число');
end.

@Puporev · 23.09.2013, 19:18

Сообщение от Paddy

одинаковые числа или не одинаковые числа.

Может не числа, а цифры?

@Paddy · 23.09.2013, 19:20 **[ТС]**

erl27

Нет, тут он просто выведет число на экран, а мне нужно, чтобы он сказал, что первая и последняя цифры одинаковы.

Добавлено через 23 секунды

Сообщение от Puporev

Может не числа, а цифры?

Пардон. Цифры.

@Puporev · 23.09.2013, 19:22

Pascal

var n:integer;
begin
readln (n);
if n in [10..99] then
 if n div 10 =n mod 10 then write('Цифры одинаковые')
 else write('Цифры не одинаковые')
else write('Не 2-х значное');
end.

@Paddy · 23.09.2013, 19:39 **[ТС]**

Спасибо)

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	23.09.2013, 19:18	3
	Сообщение от Paddy одинаковые числа или не одинаковые числа. Может не числа, а цифры? 0

@Paddy 3 / 3 / 0 Регистрация: 15.09.2013 Сообщений: 124
	23.09.2013, 19:20 [ТС]	4
	erl27 Нет, тут он просто выведет число на экран, а мне нужно, чтобы он сказал, что первая и последняя цифры одинаковы. Добавлено через 23 секунды Сообщение от Puporev Может не числа, а цифры? Пардон. Цифры. 0

@Paddy 3 / 3 / 0 Регистрация: 15.09.2013 Сообщений: 124
	23.09.2013, 19:39 [ТС]	6
	Спасибо) 0

Проверить и вывести сообщение, являются ли числа одинаковыми

Решение