Информатика: Найти все делители для заданного числа n. паскаль

Найти все делители для заданного числа n. паскаль

Ответы

12575 27.06.2020 01:48

uses crt;
var i,n,m:integer;
begin
read(n);
m:=n;
i:=1;
while i<=m do
begin
if n mod i=0 then
begin
write(i,' ');
m:=(n div i);
end;
i:=i+1;
end;
write(n);
end.

ПОКАЗАТЬ ОТВЕТЫ

Другие вопросы по теме Информатика

нигич1 29.04.2021 01:13

Сделать точно так же в word...

aidarair 16.06.2019 06:30

Перевод чисел из шестнадцатеричной системы в восьмиречную 147е3(16)→(8)...

МОМОГИТИ1 16.06.2019 06:30

Дано квадратное уравнение вида a*x^2+b*x+c=0 коэффициенты заданы a= 4.00 b= -52.00 c= 144.00 a 0, d 0. формулы для : d=b^2 - 4*a*c; x1,2=(-b +- sqrt(d))/(2*a) вывести...

хагагпррр 01.09.2019 09:00

Даны два целых числа а и b. проверьте истинность высказывания справедливы неравенства а 2 и b≤3 . напишите программу...

alina1885 24.09.2019 06:40

Составить программу для решения следующей : катя от дома по направлению на запад некоторое расстояние (в м). затем повернула на север и еще определенное расстояние....

Aigerim735 24.09.2019 06:40

Проект: афтоморфные числа автоморфными называются числа которые равны последним числам своего квадрата составте программу которая находит все автоморфные числа...

артур613 24.09.2019 06:40

1. разработать алгоритм, который по введённому номеру месяца выводит название времени года. при написании алгоритма использовать логические операции. при неверном...

jru77 16.06.2019 15:10

Укажи число формул простых веществ в следующем ряду: о₂,h₂s,cu,s₈,h₂so,h₂o,h₂,n₂,p₄. а)3 б)5 в)6 г)7...

LeraBelenko 16.06.2019 15:10

При взаимодействие алюминия с каким веществом не выделится водород? 1. с раствором серной кислоты 2. с соляной кислотой 3. с концентрированной азотной кислотой...

bestway555 16.06.2019 15:10

За первый день мальчик прочитал 60% книги,за второй 7/9 остачи, а за третий день-остовшеешся 8 страниц . сколько страниц в книге....

Найти все делители для заданного числа n. паскаль

Популярные вопросы