Nhập vào số n kiểm tra số đó có chia hết cho 2 và 5 hay không

0 bình luận về “Nhập vào số n kiểm tra số đó có chia hết cho 2 và 5 hay không”

1. program az;

   uses Crt;

   var n : integer;

   begin

   clrscr;

   Write(‘Nhap n = ‘); readln(n);

   If (n mod 2 = 0) then Writeln(n,’chia het cho 2′) else Writeln(n,’khong chia het cho 2′);

   If (n mod 5 = 0) then Writeln(n,’chia het cho 5′) else Writeln(n,’khong chia het cho 5′);

   readln

   end.

   Bình luận

2. uses crt;
   var a:string; i,j:longint; t:char;
   begin
   clrscr;
      write(‘s=’);readln(a);
      for i:=1 to length(a) do
            for j:=1 to i-1 do if a[i]<a[j] then begin t:=A[I]; a[i]:=a[j]; a[j]:=t; end;
      writeln(a);
   readln
   end.

   Bình luận