Решение должно выглядить на информационном языке турбо паскаля: вывести на экран все четырехзначные числа, в записи которых нет одинаковых цифр!
237
389
Ответы на вопрос:
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.
Свойства алгоритма: 1.дискретность 2.результативность 3.массовость 4.детерминированность 5.выполнимость и понятность 6.точность 7.конечность
Популярно: Информатика
-
agharkova201423.08.2022 17:58
-
gratem0410.08.2020 17:58
-
anastasia1medvedeva28.02.2021 21:22
-
Новичок22111211.09.2021 11:04
-
Malishok1234528.03.2022 07:33
-
polinka308904.01.2020 05:57
-
3579448819.09.2022 10:00
-
Sasha010203108.09.2022 21:32
-
Anjelika22218.06.2023 00:48
-
bonwin06.01.2020 15:46