200?’200px’:»+(this.scrollHeight+5)+’px’);"> program mno;
var i,n:integer;
begin
read (n);
while n mod 2=0 do
begin (* n делится на два *)
write (‘*’,2);
n:=n div 2
end;
i:=3;
while i
Надеюсь,
задача была интересной и вы нашли для себя, что-то новое. Оставляйте комментарии,
добавляйте свои интересные задачи.
Спасибо что посетили наш
сайт.
Ответы и объяснения
- nikolaj-semyonov
- Мегамозг
- 2017-05-07 16:54:52
Простые множители/делители числа на языке Паскаль находятся посредством последовательного деления заданного числа на числа от 2 до половины заданного числа. Если остаток от такого деления равен 0, значит делитель можно добавить в искомый результат.
Решение задачи, как разложить число на простые числа.
program ex38; < >
uses crt;
var n, i,j,f: integer;
begin
clrscr;
write(‘Введите натуральное число n= ‘);
readln(n);
f:=0;
i:=2;
j:=n;
write(n:6, ‘= 1’);
while (i
PROGRAM Q;
VAR U,M:INTEGER;
c:real;
begin
writeln(‘введите число’);
readln(u);
m:=2;
while () do begin
if u div m=0 then begin c:=u/m; write(c); write(‘*’); end else begin m:=m+1; end; end;
end.
Пока так написал, но не знаю что в скобках в while писать.
var
N: LongInt;
lst, it : ListPtr;
procedure addNode(val: LongInt; var list: ListPtr);
begin
if list = NIL then begin
new(list);
list^.val := val;
list^.next := NIL;
end
else begin
addNode(val, list^.next);
end;
end;
procedure clearList(var list: ListPtr);
begin
if list <> NIL then begin
clearList(list^.next);
dispose(list);
list := NIL;
end;
end;
procedure findFactors(n: LongInt; var list: ListPtr);
var
i: LongInt;
begin
for i := 1 to n do
if n mod i = 0 then addNode(i, list);
end;
Загрузка...
