viết chương trình nhập từ bàn phím hai số a và b in ra màn hình kết quả tổng và tích của chúng kiểm tra xem số a và b có phải là số nguyên tố không

0 bình luận về “viết chương trình nhập từ bàn phím hai số a và b in ra màn hình kết quả tổng và tích của chúng kiểm tra xem số a và b có phải là số nguyên tố không”

1. var a, b: integer;

   Function kt(x: word): boolean;

      Var i: word;

      Begin

          For i:=2 to trunc(sqrt(x)) do

               If x mod i=0 then exit(false);

          Exit(false);

      End;

   Begin

      Write(‘nhap a va b: ‘); readln(a, b);

      Writeln(‘tong: ‘, a+b);

      writeln(‘tich: ‘, a*b);

      If kt(a)=true

           then writeln(a, ‘ la so nguyen to’)

      Else writeln(a, ‘ ko la so nguyen to’);

      If kt(b)=true 

           then writeln(b, ‘ la so nguyen to’)

      Else writeln(b, ‘ ko la so nguyen to’);

      Readln

   End.

   Bình luận

2. uses crt;
   var a,b: integer;

   {—Hàm kiểm tra tính nguyên tố—}
       snt:boolean;
   function ktnt(c:integer):boolean;
   var i:integer;
   kt:boolean;
   begin
   kt:=true;
   if c<=1 then kt:=false;
   for i:=2 to trunc(sqrt(c)) do
   if (c mod i = 0) then kt:=false;
   ktnt:=kt;
   end;

   {—-Phần chương trình chính—}
   begin
   clrscr;
   write(‘Nhap a,b tuong ung: ‘); readln(a,b);
   writeln(‘Tich a va b : ‘,a*b);
   writeln(‘Tong a va b: ‘, a+b);
   if ktnt(a) then writeln(a,’ la so nguyen to’) else writeln(a,’ khong la so nguyen to’);
    if ktnt(b) then writeln(b,’ la so nguyen to’) else writeln(b,’khong la so nguyen to’);
   readln;
   end.

   đã test mong đc vote

   Bình luận