uses crt;
var m,i:integer;
begin
clrscr;
repeat
write('Nhap m='); readln(m);
until m>4;
for i:=1 to m do
if m mod i=0 then write(i:4);
readln;
end.
Câu 2:
uses crt;
var a:array[1..100]of integer;
i,n,t1,t2:integer;
begin
clrscr;
write('Nhap n='); readln(n);
for i:=1 to n do
begin
write('A[',i,']='); readln(a[i]);
end;
writeln('Day so ban vua nhap la: ');
for i:=1 to n do
write(a[i]:4);
writeln;
t1:=0;
for i:=1 to n do
if a[i]>0 then t1:=t1+a[i];
writeln('Tong cac gia tri duong la: ',t1);
t2:=0;
for i:=1 to n do
if a[i] mod 2=0 then t2:=t2+a[i];
writeln('Tong cac so chan la: ',t2);
readln;
end.
