Tính tổng số chính phương số hoàn hảo số nguyên tố in số chẵn trước lẻ sau giúp em vs mn
K
Khách
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Những câu hỏi liên quan
21 tháng 11 2015
1.Vì số chính phương bằng bình phương của một số tự nhiên nên có thể thấy ngay số chính phương phải có chữ số tận cùng là một trong các chữ số 0 ; 1 ; 4 ; 5 ; 6 ; 9
2.
Một số chính phương được gọi là số chính phương chẵn nếu nó là bình phương của một số chẵn, là số chính phương lẻ nếu nó là bình phương của một số lẻ. (Nói một cách khác, bình phương của một số chẵn là một số chẵn, bình phương của một số lẻ là một số lẻ)
22 tháng 7 2023
program so_hoan_hao;
var
n, tong_uoc, i: integer;
begin
writeln('Nhap vao mot so nguyen duong n:');
readln(n);
tong_uoc := 0;
for i := 1 to n-1 do
begin
if n mod i = 0 then
tong_uoc := tong_uoc + i;
end;
if tong_uoc = n then
writeln('YES')
else
writeln('NO');
end.
12 tháng 9 2020
Nhớ rằng: Số chính phương=Bình phương của 1 số ---> Chỉ có thể chia 4 dư 0 hoặc dư 1
Chứng minh: Xét bình phương số lẻ: \(\left(2n+1\right)^2=4\left(n^2+n\right)+1\)---> Chia 4 dư 1
Xét bình phương số chẵn: \(\left(2n\right)^2=4n^2⋮4\)
Giờ ta xét tổng 4 số chính phương lẻ:
\(\left(2a+1\right)^2+\left(2b+1\right)^2+\left(2c+1\right)^2+\left(2d+1\right)^2\)
\(=4\left(a^2+b^2+c^2+d^2+a+b+c+d+1\right)⋮4\)---> Hoàn toàn có thể là số chính phương
11 tháng 3 2022
uses crt;
var a:array[1..100]of integer;
i,n,j:integer;
kt:boolean;
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n do
if trunc(sqrt(a[i]))=sqrt(a[i]) then write(a[i]:4);
writeln;
for i:=1 to n do
if a[i]>1 then
begin
kt:=true;
for j:=2 to trunc(sqrt(a[i])) do
if a[i] mod j=0 then kt:=false;
if kt=true then write(a[i]:4);
end;
writeln;
readln;
end.
20 tháng 12 2020
uses crt;
var n,i,kt,j,t:integer;
begin
clrscr;
write('Nhap n='); readln(n);
writeln('Cac so nguyen to trong khoang tu 2 toi ',n,' la: ');
for i:=2 to n do
begin
kt:=0;
for j:=2 to i-1 do
if i mod j=0 then kt:=1;
if kt=0 then write(i:4);
end;
writeln;
writeln('Cac so chinh phuong trong khoang tu 0 toi ',n,' la: ');
for i:=0 to n do
if trunc(sqrt(i))=sqrt(i) then write(i:4);
writeln;
writeln('Cac so hoan hao trong khoang tu 1 toi ',n,' la: ');
for i:=1 to n do
begin
t:=0;
for j:=1 to i-1 do
if i mod j=0 then t:=t+j;
if t=i then write(i:4);
end;
readln;
end.
đâu bạn