Thứ Sáu, 28 tháng 9, 2018

Bài tập Pascal 9



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.
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

21 nhận xét:

  1. Bài 1
    uses 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.

    Trả lờiXóa
  2. Bài 2
    uses 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.

    Trả lờiXóa
  3. Bài 3
    uses 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.

    Trả lờiXóa
  4. Bài 4
    uses 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.

    Trả lờiXóa
  5. Bài 5
    uses 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.

    Trả lờiXóa
  6. Bài 1

    uses 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.

    Trả lờiXóa
  7. Bài 2

    uses 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.

    Trả lờiXóa
  8. Bài 3

    uses 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.

    Trả lờiXóa
  9. Nhận xét này đã bị tác giả xóa.

    Trả lờiXóa
  10. Bài 4

    uses 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.

    Trả lờiXóa
  11. Bài 5

    uses 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.

    Trả lờiXóa
  12. uses crt;
    var 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.

    Trả lờiXóa
  13. Nhận xét này đã bị tác giả xóa.

    Trả lờiXóa
  14. uses crt;
    var 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.

    Trả lờiXóa
  15. uses crt;
    var 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.

    Trả lờiXóa
  16. uses crt;
    var 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.

    Trả lờiXóa
  17. uses crt;
    var
    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.

    Trả lờiXóa
  18. nguyendinhduong2007nqlúc 17:56 10 tháng 10, 2020

    các ước của 220 thầy viết thiếu số 22 thầy ơi

    Trả lờiXóa