viết chương trình nhập số nguyên in ra màn hình : A, số n đã nhập có phải là một số nguyên hay không? B, số n đã nhập có phải số lẻ chia hết cho 3 khô

0 bình luận về “viết chương trình nhập số nguyên in ra màn hình : A, số n đã nhập có phải là một số nguyên hay không? B, số n đã nhập có phải số lẻ chia hết cho 3 khô”

1. Uses crt;

   var n:real;

   begin

      clrscr;

      write(‘N  = ‘);readln(n);

      If trunc(n) = n then writeln(n,’ la mot so nguyen’);

      If (n mod 2 = 1) and (n mod 3 = 0) then writeln(n,’ la so le chia het cho 3′);

      readln;

   end.

   Bình luận

2. Program vv;

   use crts;

   Var n:integer;

   Begin

   clrscr;

   Writeln(‘Nhap n’);Readln(n);

   If trunc(n)=n then writeln(‘n là so nguyen’);

   If (n mod 2=1) and (n mod 3=0) then Writeln(n,’ la so le chia het cho 3′);

   readln;

   End.

   Bình luận