Консультация № 137702
21.05.2008, 01:13
0.00 руб.
0 1 1
Среди четырёхзначных чисел выбрать те, у которых все четыре цифры различны

использовать Pascal turbo 7.0

Обсуждение

давно
Старший Модератор
31795
6196
21.05.2008, 17:51
общий
это ответ
Здравствуйте, Артемий Тотктонада!

Программа в приложении.
Строка <b>inc(d,ord(a[c]>0))</b> равносильна <b>if a[c]>0 then inc(d);</b>
Удачи!

Приложение:
var a:array[0..9]of byte; b,c,d:integer;begin {перебираем все числа} for b:=1000 to 9999 do begin {сбрасываем массив цифр} for c:=0 to 9 do a[c]:=0; c:=b; {считаем цифры в числе} while c>0 do begin inc(a[c mod 10]); c:=c div 10; end; {считаем только те цифры которые различны} d:=0; for c:=0 to 9 do inc(d,ord(a[c]>0)); {выводим результат} if d=4 then begin write(b:6);readln;end; end;end.
Об авторе:
Мне безразлично, что Вы думаете о обо мне, но я рад за Вас - Вы начали думать.

Форма ответа