C1.

uses crt;
var n,i:integer;
a:array[1..100]of integer;
begin
clrscr;
write('nhap so ptu:');readln(n);
for i:=1 to n do
begin
 write('A[',i,']=');
 readln(a[i]);
end;
write('cac so vua chie het cho 5 vua chie het cho 2 la:');
for i:=1 to n do
 if a[i] mod 10=0 then write(a[i]:3);
readln;
end.

C2.

uses crt;
var a,b,c,i:integer;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
while a>b do
begin
write('nhap lai so b:');readln(b);
end;
for i:=a to b do
 if (i mod 3 =0)and(i mod 4=0)and(i mod 5=0) then c:=c+1;
write('co ',c,' so le chia het cho 3,4,5 tu a den b');
readln;
end.(mong dc 5*+hay nhất)

câu 1:

uses crt;
var i,n,s:integer;
begin
clrscr;
write('nhap so n:');readln(n);
write('cac so le chia het cho 15 tu 1 den ',n,' la:');
for i:=1 to n do
 if (i mod 2<>0) and(i mod 15=0) then
 begin
  write(i,' ');
  s:=s+1;
 end;
 writeln;
write('co ',s,' so le chia het cho 15 tu 1 den ',n);
readln;
end.

câu 2:

uses crt;
var i,a,b,s,t:integer;
begin
clrscr;
write('nhap so a:');readln(a);
write('nhap so b:');readln(b);
while a>b do
begin
 write('nhap la a:');
 readln(a);
end;
t:=0;
s:=0;
for i:=a to b do
 if(i mod 2=0) and (i mod 3=0) and(i mod 4=0) and(i mod 5=0) then
 begin
  s:=s+i;
  t:=t+1; 
 end;
write('trung binh cong cac so chan chia het cho 3,4,5 tu ',a,' den ',b,' la:');
write(s/t:4:2);
readln;
end.