Сколько существует 5-значных положительных десятичных чисел - то есть чисел, десятичная запись которых имеет длину ровно 5 - при этом в этих числах не должна встречаться цифра 5? в ответе укажите только число.

52488

Объяснение:

В первой (левой) позиции может встретиться одна из цифр 1, 2, 3, 4, 6, 7, 8, 9 - всего 8 цифр.

В остальных четырех позициях могут встретиться цифры 0, 1, 2, 3, 4, 6, 7, 8, 9 - всего 9 цифр.

Итого вариантов: 8×9×9×9×9 = 52488

3. Вибрати значок програми
1. Увімкнути живлення монітора та системного блока
6. Дочекатися завантаження вікна програми
4. Дочекатись, доки вказівник миші набере вигляду стрілки
5. Двічі клацнути кнопкою миші
10. Клацнути на кнопці ПУСК
9. Дочекатись, доки вікно програми закриється
11. Обрати кнопку ЗАВЕРШЕННЯ РОБОТИ
12. Дочекатись, поки індикатор на системному блоці не погасне
7. У вікні програми виконати вказівку ЗАКРИТИ
2. Дочекатись, доки відобразиться РОБОЧИЙ СТІЛ
8. Якщо не передбачено окремого завершення роботи програми, натиснути Закрити.

Program name;//Имя программы
uses crt;//Запуск программы в консольном режиме НЕОБЯЗАТЕЛЬНО
var 
   a : Integer; 
b : Integer; 
i : Integer; 
c : Integer;
BEGIN //Начало программы 
write('Введите 1 число: ');  readln(a);//Ввод значения первого числа 
c := b-a-1;  write('Введите 2 число: '); 
readln(b);//Ввод значения второго числа 
writeln(a, ' ' , b); //Вывод двух чисел
  writeln(a, ' ' ,a*a,' ' , a*a*a); // Вывод 1 числа, квадрата, куба 
for i := 1 to b-a-1 do  
begin   
a := a + 1;   
writeln(a, ' ',a*a, ' ', a*a*a); // Вывод всех чисел от a до b 
end;         
writeln(b, ' ' ,b*b,' ' , b*b*b);// Вывод 2 числа, квадрата, куба 
ReadKey;  
end. //Конец программы