Viết chương trình kiểm tra in các số hoàn hảo và chính phương từ 1 đến n Mỗi loại in 1 hàng Quân giúp tiếp nha! 16/07/2021 Bởi Abigail Viết chương trình kiểm tra in các số hoàn hảo và chính phương từ 1 đến n Mỗi loại in 1 hàng Quân giúp tiếp nha!
program hh_cp; uses crt; var n,i:integer; {—Ham-hoan-hao—} function hh(k:integer):boolean; var t,j:integer; begin t:=0; for j:=1 to k div 2 do if k mod j=0 then t:=t+j; if t=k then hh:=true esle hh:=false; end; {—Ham-chinh-phuong—} function cp(k:integer):boolean; begin if sqr(trunc(sqrt(k)))=k then cp:=true else cp:=false; end; {—Chuong-trinh-chinh—} BEGIN clrscr; write(‘Nhap n: ‘); readln(n); for i:=2 to n do if hh(i) then write(i,’ ‘); writeln; for i:=1 to n do if cp(i) then write(i,’ ‘); readln; end. Bình luận
mình xin trả lời program in_nt; uses crt; var n:integer; function kt_nt:boolean; var i:integer;ok:boolean; begin ok:true; for i:=2 to n-1 do(vì số nto kể từ số 2 nên chạy từ 2,n-1 vì trừ đi 1 giá trị của phần tử đầu á) if n mod 2=0 then ok:=false; kt_nt:=ok; end; begin clrscr; write(‘nhap n’); readln(n); if kt_nt then begin for k:=2 to i-1 do if i mod k= 0 then write(k:2:5); end; readln; end. Bình luận
program hh_cp;
uses crt;
var n,i:integer;
{—Ham-hoan-hao—}
function hh(k:integer):boolean;
var t,j:integer;
begin
t:=0;
for j:=1 to k div 2 do
if k mod j=0 then t:=t+j;
if t=k then hh:=true esle hh:=false;
end;
{—Ham-chinh-phuong—}
function cp(k:integer):boolean;
begin
if sqr(trunc(sqrt(k)))=k then cp:=true else cp:=false;
end;
{—Chuong-trinh-chinh—}
BEGIN
clrscr;
write(‘Nhap n: ‘); readln(n);
for i:=2 to n do
if hh(i) then write(i,’ ‘);
writeln;
for i:=1 to n do
if cp(i) then write(i,’ ‘);
readln;
end.
mình xin trả lời
program in_nt;
uses crt;
var n:integer;
function kt_nt:boolean;
var i:integer;ok:boolean;
begin
ok:true;
for i:=2 to n-1 do(vì số nto kể từ số 2 nên chạy từ 2,n-1 vì trừ đi 1 giá trị của phần tử đầu á)
if n mod 2=0 then ok:=false;
kt_nt:=ok;
end;
begin
clrscr;
write(‘nhap n’);
readln(n);
if kt_nt then
begin
for k:=2 to i-1 do
if i mod k= 0 then write(k:2:5);
end;
readln;
end.