Дано натуральное число N. Найти и вывести все простые делители этого числа. Паск...

August 2022 1 7 Report

Дано натуральное число N. Найти и вывести все простые делители
этого числа. Паскаль. Через вложенные циклы.

Answers & Comments

Эклео Var
n,k,x,i,j: integer;
begin
write ('Введите число: ');
readln (n);
writeln ('Простые делители числа:');
x:=0;
for i:=2 to n do begin
if n mod i =0
then begin
k:=0;
for j:=2 to i div 2 do
if i mod j=0
then begin k:=1; break end;
if k=0 then begin writeln (i); x:=1; end;
end;
end;
if x=0 then writeln ('Нет простых делителей');
end.
-------------------Пример:--------------------
Введите число: 42
Простые делители числа:
2
3
7
---------------------------------------------------

4 votes Thanks 3

Answers & Comments

vyvesti pervye n naturalnyh chisel summa cifr kotoryh nechyotnaya paskal cherez

napisat funkciyu nahozhdeniya kol va cifr cherez rekursiyu paskal rekursiya cherez

najti summu vseh dvuznachnyh chisel kratnyh 5 uslovnyj operator ne ispolzovat

vyvesti tablicu kvadratov chyotnyh chisel ot 1 do 19 uslovnyj operator ne ispolzo8c7a530ecfd9bf51e3d24901060af2b9 6290

dano naturalnoe chislo opredelit yavlyaetsya li ono palindromom napisat procedu

b napisat funkciyu dlya raschyota naibolshego obshego delitelya dvuh naturalnyh chi

dany n naturalnyh chisel najti ih naibolshij delitel ispolzuya algoritm evkli

materialnaya tochka dvizhetsya po zakonu s5t26t najti uskorenie tochki

v desyatichnoj zapisi chisla 424 dve cifry propusheny vosstanovite propushennye ci

vyvod znachenij

рекомендуемые вопросы

Helpful Links

Helpful Social