Определить, есть ли среди цифр заданного трехзначного числа есть одинаковые

@Romemix163 · Регистрация: 06.12.2011

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

Здравствуйте, необходима помощь в решении следующей задачи:
Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если среди цифр заданного трехзначного числа есть одинаковые, и FALSE в противном случае.(Оператор IF не использовать).

@Puporev · 28.09.2014, 14:09

Pascal

1	t:=((n div 100)=(n mod 10))or(n div 100=n div 10 mod 10))or((n div 10 mod 10=n mod 10));

@Romemix163 · 28.09.2014, 14:46 **[ТС]**

Спасибо за оперативность)

Добавлено через 16 минут
Хм, в компиляторе выдает ошибку : Встречено ')', а ожидалось ';'

@erl27 · 28.09.2014, 14:59

Там во втором условии опечатка (лишняя скобка). Можете даже так написать:

Pascal

var
  N: integer;
  t: boolean;
 
begin
  write('N = ');
  readln(N);
  t := (n div 100 = n mod 10) or (n div 100 = n div 10 mod 10) or (n div 10 mod 10 = n mod 10);
  writeln(t)
end.

@Romemix163 · 28.09.2014, 15:01 **[ТС]**

Вот теперь работает, спасибо.

@Romemix163 1 / 1 / 0 Регистрация: 06.12.2011 Сообщений: 52
		1
	Определить, есть ли среди цифр заданного трехзначного числа есть одинаковые 28.09.2014, 13:51. Показов 7840. Ответов 4 Метки нет (Все метки) Здравствуйте, необходима помощь в решении следующей задачи: Написать программу, в результате выполнения которой булевская переменная t получает TRUE, если среди цифр заданного трехзначного числа есть одинаковые, и FALSE в противном случае.(Оператор IF не использовать). 0

@Romemix163 1 / 1 / 0 Регистрация: 06.12.2011 Сообщений: 52
	28.09.2014, 14:46 [ТС]	3
	Спасибо за оперативность) Добавлено через 16 минут Хм, в компиляторе выдает ошибку : Встречено ')', а ожидалось ';' 0

@Romemix163 1 / 1 / 0 Регистрация: 06.12.2011 Сообщений: 52
	28.09.2014, 15:01 [ТС]	5
	Вот теперь работает, спасибо. 0