Найти все трехзначные числа, удовлетворяющие условию: любые две цифры числа различны

@Brus Wane · Регистрация: 18.03.2015

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

Написать программу которая находит все трехзначные числа, удовлетворяющие следующему условию:любые две цифры числа различны.
Нужно сделать понятным языком

@APALoff · 18.03.2015, 21:14

Pascal

For i:=1 to 9 do
 For j:=0 to 9 do
  For k:=0 to 9 do
    If (i<>j) or (i<>k) or (j<>k) then Writeln(i,j,k);

@JuriiMW · 19.03.2015, 05:39

APALoff, всё таки, наверное нужно не „или“, а „и“ ?

Pascal

begin
  var count := 0;
  for var i := 1 to 9 do
    for var j := 0 to 9 do
      for var k := 0 to 9 do
        if (i <> j) and (i <> k) and (j <> k) then
          begin
            Write(#32, i, j, k);
            count += 1;
          end;
  WriteLn(NewLine, 'Итого трёхзначных чисел, у которых любые две цифры различны: ', count);
end.

(Эта вся программа… Копипасти в PABC.NET и запускай!)

@APALoff · 19.03.2015, 09:36

JuriiMW, я просто обратил внимание на слово "любые", а это значит не все разные, а достаточно только двух разных.

Добавлено через 51 секунду
Или я не вник в смысл.

@JuriiMW · 19.03.2015, 10:17

APALoff, я же понял так: „Ни одна цифра не может быть равна любой другой“…

@Brus Wane 0 / 0 / 1 Регистрация: 18.03.2015 Сообщений: 78
		1
	Найти все трехзначные числа, удовлетворяющие условию: любые две цифры числа различны 18.03.2015, 16:04. Показов 2001. Ответов 4 Метки нет (Все метки) Написать программу которая находит все трехзначные числа, удовлетворяющие следующему условию:любые две цифры числа различны. Нужно сделать понятным языком 0

@APALoff 1646 / 1075 / 1081 Регистрация: 03.07.2013 Сообщений: 4,507
	19.03.2015, 09:36	4
	JuriiMW, я просто обратил внимание на слово "любые", а это значит не все разные, а достаточно только двух разных. Добавлено через 51 секунду Или я не вник в смысл. 0

@JuriiMW 5079 / 2651 / 2349 Регистрация: 10.12.2014 Сообщений: 10,028
	19.03.2015, 10:17	5
	APALoff, я же понял так: „Ни одна цифра не может быть равна любой другой“… 0