Напишите рекурсивную функцию, которая раскладывает число на простые сомножители....

July 2022 1 1 Report

Напишите рекурсивную функцию, которая раскладывает число на простые сомножители.
Пример:
Введите натуральное число: 378
378 = 2*3*3*3*7

Answers & Comments

Pashq4 Вариант без рекурсии - как просил позже

function factorization ( numeric: integer ): integer;
var d: integer;
begin
write(numeric, ' = 1');
d := 2;
while numeric > 1 do
begin
if numeric mod d = 0 then
begin
write (' * ', d);
numeric := numeric div d;
end
else inc(d);
end;
end;
var x: integer;
begin
write('Введите число: ');
readln(x);
factorization(x);
end.

3 votes Thanks 6

Answers & Comments

neobhodimo napisat programmu na paskale kotoraya budet udalyat iz stroki vse st

paskal napishite proceduru kotoraya vyvodit na ekran peredannoe ej chislo v ne

paskal dano naturalnoe chislo n trebuetsya poluchit i vyvesti na ekran vse voz

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

Helpful Links

Helpful Social