Найдите количество пятизначных восьмеричных чисел, в которых все цифры
различны и никакие две четные или нечетные
Не стоят рядом.​

язык: pascal

ответ:

program case17;

var

n: integer;

begin

repeat

write('введите число: ');

readln(n);

until (n> 10)and(n< 40);

case n of

10: writeln('десять учебных ');

11: writeln('одиннадцать учебных ');

12: writeln('двенадцать учебных ');

13: writeln('тринадцать учебных ');

14: writeln('четырнадцать учебных ');

15: writeln('пятнадцать учебных ');

16: writeln('шестнадцать учебных ');

17: writeln('семнадцать учебных ');

18: writeln('восемнадцать учебных ');

19: writeln('девятнадцать учебных ');

20: writeln('двадцать учебных ');

21: writeln('двадцать одно учебное ');

22: writeln('двадцать два учебных ');

23: writeln('двадцать три учебных ');

24: writeln('двадцать четыре учебных ');

25: writeln('двадцать пять учебных ');

26: writeln('двадцать шесть учебных ');

27: writeln('двадцать семь учебных ');

28: writeln('двадцать восемь учебных ');

29: writeln('двадцать девять учебных ');

30: writeln('тридцать учебных ');

31: writeln('тридцать одно учебное ');

32: writeln('тридцать два учебных ');

33: writeln('тридцать три учебных ');

34: writeln('тридцать четыре учебных ');

35: writeln('тридцать пять учебных ');

36: writeln('тридцать шесть учебных ');

37: writeln('тридцать семь учебных ');

38: writeln('тридцать восемь учебных ');

39: writeln('тридцать девять учебных ');

40: writeln('сорок учебных ');

end;

end.