1.Viết chương trình nhập vào 1 số chia hết cho 3 hay ko? 2.Viết chương trình nhập vào 1 số cho biết đó là số chẵn hay số lẻ?

0 bình luận về “1.Viết chương trình nhập vào 1 số chia hết cho 3 hay ko? 2.Viết chương trình nhập vào 1 số cho biết đó là số chẵn hay số lẻ?”

1. uses crt;
   var n : integer;
   begin
   write(‘Nhap n :’); readln(n);
   writeln;
   if n mod 3 = 0 then write(‘n chia het cho 3’) else write(0);
   if n mod 2 = 1 then write(‘n le’) else write(‘n chan’);
   readln
   end.

   Bình luận

2. 1.

   program ct;

   uses crt;

   var n:integer;

   begin

   clrscr;

   write(‘nhap mot so:=’);readln(n);

   if n mod 3=0 then writeln(n,’chi het cho 3′) else writeln(‘khong chia het cho 3);

   readln

   end.

   2.

   program ct;

   uses crt;

   var n:integer;

   begin

   clrscr;

   write(‘nhap mot so:=’);readln(n);

   if n mod 2=0 then writeln(n,’ la so chan’);

   if n mod 2<>0 then writeln(n,’la so le’);

   readln

   end.

   Bình luận