Viết chương trình phần tích một số nguyên n thành tích của các thừa số nguyên tố.(pascal nha)
0 bình luận về “Viết chương trình phần tích một số nguyên n thành tích của các thừa số nguyên tố.(pascal nha)”
VAR i,n :INTEGER; BEGIN Write (‘Nhap n:’); Readln(n); Write (n,’=’); i:=2; REPEAT WHILE n MOD i <> 0 DO i:=i+1; Write(i); n:=n DIV i; IF n > 1 THEN write (‘*’); UNTIL n = 1; readln; END.
uses crt; var n,i: integer; begin clrscr; Write(‘Nhap so can phan tich: ‘);Readln(n); i:=2; Write(‘Ket qua phan tich:’); Write(n,’=’); While n>1 do Begin if n mod i = 0 then Begin Write(i,’.’); n:= n div i end else i:=i+1; End; Readln End.
VAR i,n :INTEGER;
BEGIN
Write (‘Nhap n:’);
Readln(n);
Write (n,’=’);
i:=2;
REPEAT
WHILE n MOD i <> 0 DO
i:=i+1;
Write(i);
n:=n DIV i;
IF n > 1 THEN
write (‘*’);
UNTIL n = 1;
readln;
END.
uses crt;
var n,i: integer;
begin
clrscr;
Write(‘Nhap so can phan tich: ‘);Readln(n);
i:=2;
Write(‘Ket qua phan tich:’);
Write(n,’=’);
While n>1 do
Begin
if n mod i = 0 then Begin Write(i,’.’); n:= n div i end
else i:=i+1;
End;
Readln
End.