Nhập vào số n kiểm tra số đó có chia hết cho 2 và 5 hay không
2 câu trả lời
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.
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.
