Bài 1: viết chương trình nhập vào 2 số nguyên x,n và tính x^n Bài 2: viết chương trình nhập vào một số nguyên A và in ra màn hình tất cả các ước của A

0 bình luận về “Bài 1: viết chương trình nhập vào 2 số nguyên x,n và tính x^n Bài 2: viết chương trình nhập vào một số nguyên A và in ra màn hình tất cả các ước của A”

1. Bài 1:

   program tinh_mu;

   uses crt;

   var x,n,i:integer;

        gt:longint;

   begin

          clrscr;

          write(‘Nhap x: ‘);  readln(x);

          write(‘Nhap n: ‘);  readln(n);

          gt:=1;

          for i:=1 to n do

                 gt:=gt*x;

          write(‘x^n = ‘,gt);

          readln;

   end.

   Bài 2:

   program uoc_so;

   uses crt;

   var a,i:integer;

   begin

          clrscr;

          write(‘Nhap A: ‘);  readln(A);

          write(‘Cac uoc cua ‘,a,’ la: ‘);

          for i:=1 to a do

                 if a mod i=0 then write(i,’ ‘);

          readln;

   end.

   Bình luận