Tìm kiếm
Nam
Tìm nghiệm nguyên của pt: x^2 -2y(x-y)=2(x+1)
- PhucLe yêu thích
truong9bthcstb
#627666 Phương trình nghiệm nguyên
Gửi bởi
trong 17-04-2016 - 09:19
#627106 TOPIC: Tổng hợp bài tập PASCAL
Gửi bởi
trong 14-04-2016 - 18:58
Đề thi học sinh giỏi tin học thành phố Hà Nội 2015-2016
File gửi kèm
-
Doc1.pdf 816.43K
434 Số lần tải
- PlanBbyFESN và Element hero Neos thích
#626966 TOPIC: Tổng hợp bài tập PASCAL
Gửi bởi
trong 13-04-2016 - 08:56
ues crt;
var n,i,s,a,b:integer;
function kt_nt(x:integer):boolean;
var i:integer;
kt:boolean;
begin
kt:=true;
if x<=1 then kt:=false;
for i:=2 to trunc(sqrt(x)) do
if x mod i=0 then kt:=false;
kt_nt:=kt;
end;
function nt_rg(n:integer):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
if (kt_nt(i)) and (n mod i=0) then
s:=s+i;
nt_rg:=s;
end;
begin
clrscr;
writeln('nhap n,a,b: '); readln(n,a,b);
writeln('so nguyen to rut gon: ',nt_rg(n));
for i:=a to b do
begin
if nt_rg(n)=nt_rg(i) then
write(i,' ');
end;
readln;
end.
- PlanBbyFESN và Element hero Neos thích
#624057 Topic yêu cầu tài liệu THCS
Gửi bởi
trong 01-04-2016 - 19:44
