Bài 1: cho số nguyên N kiểm tra xem N có phải số hoàn hảo không Bài 2: Xây dựng thuật toán cho bài toán tính S=1+3+5+7…+N

0 bình luận về “Bài 1: cho số nguyên N kiểm tra xem N có phải số hoàn hảo không Bài 2: Xây dựng thuật toán cho bài toán tính S=1+3+5+7…+N”

1. Câu 1:

   uses crt;
   var n,i:longint;
   function hh(a:longint):boolean;
   var s,i:longint;
   begin
      hh:=true; s:=0;
      for i:=1 to a div 2 do 
         if a mod i=0 then inc(s,i);
         if s<>a then hh:=false;
   end;
   begin
   clrscr;
      write(‘Nhap n: ‘); readln(n);
      if hh(n) then writeln(n,’ la so hoan hao’)
      else writeln(n,’ khong phai so hoan hao’);
   readln
   end.

   Câu 2:

   B1: gán s←0; i←1

   B2: đặt điều kiện i<=n mỗi lần lặp inc(s,i); inc(i,2)

   B3: nếu i>n thì in kết quả S= ra màn hình

   B4: quay lại B2 đến khi thỏa mãn B3

   Bình luận

2. bài 2

   B1 Nhấp N và dãy số 1 3 5 7 …N

   B2 S <<<1 i<<<1 Tong<<<0 (<<< = gán)

   B3 i>(N-1)/2 +1

   + Đúng đưa ra S và kết thúc

   + Sai >>> Tong=Tong+(S+2)

   B4 i<<< i+1 quay lại bước 3

   Bình luận