Viết thuật toán và chương trình: Nhập vào 50 số. In ra màn hình các số vừa nhập và thông báo các số đó là số chẵn hay số lẻ CÁC BEST TIN GIÚP MIK VS !

0 bình luận về “Viết thuật toán và chương trình: Nhập vào 50 số. In ra màn hình các số vừa nhập và thông báo các số đó là số chẵn hay số lẻ CÁC BEST TIN GIÚP MIK VS !”

1. Program BTH;
   uses crt;
   var i,n:longint;
   Function kt(n:longint):Boolean;
           Begin
                   If n mod 2=0 then kt:=true
                   else kt:=false;
           end;
   Begin
           clrscr;
           For i:=1 to 50 do
           Begin
                   write(‘a[‘,i,’] ‘);readln(n);
                   If kt(n)=true then writeln(n,’ la so chan’)
                   else writeln(n,’ la so le’);
           end;
           readln;
   end.

   Bình luận