1/ Viết chương trình tính tổng
các số nguyên từ m đến n. Với m, n nguyên dương nhập từ bàn phím
ví dụ:
m=2
n=6
tong=20
2/ Viết chương trình tính tích
các số nguyên từ 1đến n. Với n nguyên dương nhập từ bàn phím
ví dụ:
n=6
tich=720
3/ Viết chương trình tính xy
Với x, y nguyên dương nhập từ bàn phím
ví dụ:
x=2
y=4
x^y=16
4/ Viết chương trình tính
s=1+1/2+1/3+…+1/n. Với n nguyên dương nhập từ bàn phím
Bài 5: Hai số tạo thành một cặp số thân thiết khi chúng tuân theo quy luật: Số này bằng tổng tất cả các ước thật sự của số kia (trừ chính số đó) và ngược lại. Cặp số thân thiện đầu tiên được tim ra, và cũng được chứng minh là cặp "số thân thiết" nhỏ nhất, là cặp số: 220 và 284. Hãy thử phân tích một chút: Số 220 có 11 ước số thật sự là 1, 2, 4, 5, 10, 11, 20, 22, 44, 55 và 110. Tổng của 11 ước số này vừa đúng bằng 284. Ngược lại, số 284 có 5 ước thật sự là: 1, 2, 4, 71, 142, tổng của chúng cũng vừa đúng bằng 220.
Bài 5: Hai số tạo thành một cặp số thân thiết khi chúng tuân theo quy luật: Số này bằng tổng tất cả các ước thật sự của số kia (trừ chính số đó) và ngược lại. Cặp số thân thiện đầu tiên được tim ra, và cũng được chứng minh là cặp "số thân thiết" nhỏ nhất, là cặp số: 220 và 284. Hãy thử phân tích một chút: Số 220 có 11 ước số thật sự là 1, 2, 4, 5, 10, 11, 20, 22, 44, 55 và 110. Tổng của 11 ước số này vừa đúng bằng 284. Ngược lại, số 284 có 5 ước thật sự là: 1, 2, 4, 71, 142, tổng của chúng cũng vừa đúng bằng 220.
Thế kỷ 17, nhà toán
học Pháp Fecma tìm ra cặp "số thân thiết" thứ hai là: 17296 và 18416.
Cũng thời điểm ấy, một nhà toán học Pháp khác tìm ra cặp số thứ ba là: 9363544
và 9437056. Điều khiến người ta kinh ngạc nhất là nhà toán học Thuỵ Sỹ nổi
tiếng Ơ-le vào năm 1750 đã công bố một lúc 60 cặp số thân thiết. Giới toán học
được một phen kinh hoàng, họ cho rằng " Ơ-le đã tìm ra hết cả rồi".
Nhưng không ngờ, một thế kỷ sau, một thanh niên nước Ý mới 16 tuổi tên là
Baconi đã công bố một cặp số thân thiết vào năm 1866, nó chỉ lớn hơn 220 và 284
một chút, đó là cặp số 1184 và 1210. Những nhà toán học lớn trước đó đã tìm ra
chúng, để cho cặp số chẳng mấy lớn này dễ dàng qua mặt.
Cùng với sự phát triển của khoa
học kỹ thuật, các nhà toán học bằng máy tính đã kiểm tra tất cả
các số trong phạm vi 1.000.000, tổng cộng tìm được 42 cặp số thân thiết. Hiện
nay, số lượng cặp số thân thiết được tìm thấy đã vượt quá con số 1000. Thế
nhưng liệu có phải số thân thiết là nhiều vô hạn? Chúng phân bố có quy luật
không? Những vấn đề này tới nay vẫn còn bỏ ngỏ.
Yêu cầu:
Hãy viết chương trình kiểm tra 2 số a và b có là cặp số thân thiết không( với a và b nhập từ bàn phím)
ví dụ: 220 và 284 hoặc 1184 và 1210 là các cặp số thân thiết
Bài 1
Trả lờiXóauses crt;
var
m,n,a,x:integer;
begin
clrscr;
write('nhap m=');readln(m);
write('nhap n=');readln(n);
a:=0;
for x:=m to n do
a:=a+x;
writeln(a);
readln;
end.
hay phết
XóaBài 2
Trả lờiXóauses crt;
var
n,d,x:integer;
begin
clrscr;
write('nhap n=');readln(n);
d:=1;
for x:=1 to n do
d:=d*x;
writeln(d);
readln;
end.
Bài 3
Trả lờiXóauses crt;
var
x,y,a,d:longint;
begin
clrscr;
write('nhap x=');readln(x);
write('nhap y=');readln(y);
d:=1;
for a:=1 to y do
d:=d*x;
writeln(d);
readln;
end.
Bài 4
Trả lờiXóauses crt;
var
i,n:longint;s:real;
begin
clrscr;
write('nhap n=');readln(n);
for i:=1 to n do
s:=s+1/i;
writeln(s:0:2);
readln;
end.
quá tốt. 10đ
XóaBài 5
Trả lờiXóauses crt;
var
a,b,c,d,i,y:longint;
begin
clrscr;
write('nhap a=');readln(a);
write('nhap b=');readln(b);
c:=0;d:=0;
for i:=1 to (a div 2) do
if a mod i=0 then
c:=c+i;
for y:=1 to (b div 2) do
if b mod y=0 then
d:=d+y;
if (a=d) and (b=c) then
writeln('a va b la cap so ban be')
else
writeln('a va b khong la cap so ban be');
readln;
end.
Chuẩn không cần chỉnh. 10đ
XóaBài 1
Trả lờiXóauses crt;
var
a,b,m,n:longint;
begin
clrscr;
write('nhap m =');
readln(m);
write('nhap n= ');
readln(n);
b:=0;
for a:=m to n do
b:=b+a;
writeln(b);
readln
end.
Bài 2
Trả lờiXóauses crt;
var
a,n,b:longint;
begin
clrscr;
write('nhap n = ');
readln(n);
b:=1;
for a:=1 to n do
b:=b*a;
writeln(b)
readln
end.
Bài 3
Trả lờiXóauses crt;
var
x,y,a,b:longint;
begin
clrscr;
write('nhap x= ');
readln(x);
write('nhap y= ');
readln(y);
b:=1;
for a:=1 to y do
b:=b*x;
writeln(b);
readln
end.
Nhận xét này đã bị tác giả xóa.
Trả lờiXóaBài 4
Trả lờiXóauses crt;
var
a,n:longint;
b:real;
begin
clrscr;
writeln('nhap n=');
readln(n);
for a:=1 to n do
b:=b+1/a;
writeln(b:0:3);
readln
end.
Bài 5
Trả lờiXóauses crt;
var
a,b,n,c,d,m:longint;
begin
clrscr;
write('nhap n = ');
readln(n);
writeln('nhap m=');
readln(m);
b:=0;
for a:=1 to (n div 2) do
b:=b+a;
d:=0;
for c:=1 to (m div 2) do
d:=d+c;
if (b=m)and(d=n) then
writeln('day la cap so than thiet')
else writeln('day ko phai cap so than thiet');
readln
end.
uses crt;
Trả lờiXóavar a,s,m,n:integer;
begin
clrscr;
write('nhap n=');
readln(n);
write('nhap m=');
readln(m);
for a:=m to n do
s:=s+a;
writeln(s);
readln
end.
Nhận xét này đã bị tác giả xóa.
Trả lờiXóauses crt;
Trả lờiXóavar a,s,n:integer;
begin
clrscr;
s:=1;
write('nhap n=');
readln(n);
for a:=1 to n do
s:=s*a;
writeln(s);
readln
end.
uses crt;
Trả lờiXóavar a,s,x,y:integer;
begin
clrscr;
s:=1;
write('nhap x=');
readln(x);
write('nhap y=');
readln(y);
for a:=1 to y do
s:=s*x;
writeln(s);
readln
end.
uses crt;
Trả lờiXóavar p,n:integer;
s:real;
begin
clrscr;
write('nhap n=');
readln(n);
for p:=1 to n do
s:=s+1/p;
writeln(s:0:1);
readln;
end.
uses crt;
Trả lờiXóavar
a,b,c,d,n,m:integer;
begin
clrscr;
b:=0;
write('nhap n=');
readln(n);
writeln('nhap m=');
readln(m);
for a:=1 to (n div 2) do
b:=b+a;
d:=0;
for c:=1 to (m div 2) do
d:=d+c;
if (b=m)and(d=n) then
writeln('day la cap so than thiet')
else writeln('day ko phai cap so than thiet');
readln
end.
các ước của 220 thầy viết thiếu số 22 thầy ơi
Trả lờiXóa