Var a,b,i: integer; begin write('числа a и b через пробел: '); readln(a,b); for i:=a+1 to b-1 do write(i,' '); writeln; for i:=b-1 downto a+1 do write(i,' '); end.
числа a и b через пробел: 10 21 11 12 13 14 15 16 17 18 19 20 20 19 18 17 16 15 14 13 12 11
В С# такой код получился)) Результат прикрепил в виде картинки, правда весь не поместился)) Если нужно, могу скинуть готовую программу) double c; int x=0; int y = 0; int z=0; for (int i = 100; i < 1000; i++) { c = i % 9; if (c == 0) { int b = i; x = b / 100; b = b % 100; y = b / 10; b = b % 10; z = b; if (x == 0 || x == 1 || x == 4 || x == 5 || x == 8 || y == 0 || y == 1 || y == 4 || y == 5 || y == 8 || z == 0 || z == 1 || z == 4 || z == 5 || z == 8) { if (x != y && x != z && z != y) Console.WriteLine(i); } } }
Писал на C# Вроде всё понятно) Что не понятно спрашивай) Если нужно, могу сбросить готовую программу))
Console.WriteLine("Введите число"); int n = Convert.ToInt16(Console.ReadLine());//Вводим число int m = n; // это просто для красоты результата int i = 0; //задаём начальное количество цифер в числе for (int nn = n; n > 0; n /= 10, i++) ; //Сам наш цикл который выщитывает сколько цифер в числе.
Console.WriteLine("");
Console.WriteLine("Количество натуральных цифер в числе "+ m +" = "+ i);
begin
write('числа a и b через пробел: '); readln(a,b);
for i:=a+1 to b-1 do write(i,' ');
writeln;
for i:=b-1 downto a+1 do write(i,' ');
end.
числа a и b через пробел: 10 21
11 12 13 14 15 16 17 18 19 20
20 19 18 17 16 15 14 13 12 11