Опубликовано 7 лет назад по предмету Информатика от Artur30

СРОЧНО! Решение делается в турбо паскале:

"Вывести на экран все четырехзначные числа, в записи которых нет одинаковых цифр!"

Ответ

Ответ дан sinbad7

var a: integer; c1, c2, c3, c4: integer;

begin for a := 1000 to 9999 do begin c1 := a div 1000; c2 := (a div 100) mod 10; c3 := (a div 10) mod 10; c4 := a mod 10; if (c1 <> c2) and (c1 <> c3) and (c1 <> c4) and (c2 <> c3) and (c2 <> c4) and (c3 <> c4) then writeln(a); end;end.
Ответ

Ответ дан archery

var s:string;

i,j,k:integer;

Unique:boolean;

BEGIN

for i := 1000 to 9999 do

begin

     s := str(i);

     Unique:=true;

     for j: = 1 to length(s)-1 do

        for k := j+1 to length(s) do

        begin

           if s[j] = s[k] then Unique:=false;

        end;

     if Unique then

       writeln(i);

end;

END.

может длинее, но универсальное.

Не тот ответ, который вам нужен?

Найди нужный

Самые новые вопросы

Другие предметы - 1 год назад

В какой оболочке земли живёт большинство живых организмов?

Другие предметы - 1 год назад

Из каких неживых частей состоит экосистема

Другие предметы - 1 год назад

На какие расы делятся население земли

Другие предметы - 1 год назад

Определение статуса военнослужащего (краткий ответ!!)

Другие предметы - 1 год назад

Проведи следущие наблюдения в классе: один учащийся спокойно сидит за партой, слушая объяснения учителя; второй записывает план объяснения в тетради ; третий ученик вышел к доске отвечать на вопрос учителя. назови движущиеся тела. относительно каких других тел они движутся ?

Задай вопрос

Лучшие за месяц

1

Oksana Gordienko
+798, 2 награды
2

Bianca
+743, 4 награды
3

Monna
+702, 2 награды
4

Brawer
+646, 3 награды
5

Ольга М.А.
+10.5K, 4 награды
6

Kovaleva_08
+522, 1 награда
7

Serebro
+495, 3 награды
8

Laguna
+489, 2 награды
9

Katerina_kiev
+441, 3 награды
10

Мусиенко Денис
+402, 2 награды

Интересные статьи: