простые программы из школьного курса математики на языке PascalABC Разложение числа на простые множители
учебно-методический материал по информатике и икт (10 класс) по теме

№

строки

Действие

1-3

Заголовок программы

4

Начало исполняемой части программы

5

Очистка экрана монитора от всех записей (работа с чистого листа)

6-7

Выбор числа, для которого будет производиться разложение на простые множители

8

Копирование значения числа для работы с копией

9

Вывод первого множителя из разложения числа

10

Перебор всех целочисленных делителей меньших или равных исходному числу по правилу цикла «для каждого»

11

Одинарное или многократное деление исходного числа в случае отсутствия остатка

12

14

15

В тех случаях когда деление происходит без остатка

выводим делитель, как элемент разложения

и производим замену исходного числа на частное от деления

13, 16

Операторные скобки для строки 12

17

Конец программы

№

строки

Текст программы

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

program razlogenie_chisla;

uses crt;

var i,a,b: integer;

begin

clrscr;

write ('Задайте натуральное число  - ');

read(a);

b:=a;

write (a,' =  1');

for i:=2 to a do

      while b mod i = 0   do

                                       if  b mod i = 0     then

                                                                            begin

                                                                               write ('*',i);

                                                                               b:= b div i;

                                                                            end;

 end.