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!
2 câu trả lời
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.
