Для трёхзначных чисел до n (n вводится с клавиатуры) вывести на экран только те ,у которых все цифры в представлении различны.
172
386
Ответы на вопрос:
var i,n,a,b,c : integer;
begin
read(n);
i: =99;
for i: =100 to n do
begin
a: =i mod 10;
b: =i div 10 mod 10;
c: =i div 100;
if (a< > b) and (a< > c) and (b< > c) then write(i,' ');
end;
end.
проверь(для паскаля)
Популярно: Информатика
-
ангел80902.03.2020 14:48
-
lerkalukashenko129.06.2023 21:59
-
kdjdn2502.03.2020 02:53
-
Hdzf200208.02.2020 20:24
-
Tema2018123419.05.2022 13:35
-
Duglas1728.05.2021 11:06
-
long611.11.2022 09:11
-
bezimeni303.11.2022 07:10
-
pixxxiv27.05.2021 05:16
-
kononovadm13.02.2021 18:18