Bài 1:

var i,t:longint;
begin
for i:=1 to 100 do
if (i mod 3=0) then t:=t+i;
if (t mod 5=0) and (t mod 3=0) then write('tong chia het cho 3 va 5') else write('tong ko chia het cho 3 va 5');
readln;
end.

Bài 2:

var a:array[1..1000000] of longint;
i,n,d:longint;
begin
read(N);  writeln;
for i:=1 to n do read(a[i]);
d:=0;
for i:=1 to n do
if (a[i] mod 7=0) then d:=d+1;  writeln;
write('so luong so chia het cho 7 la:',d);
readln;
end.

câu 1:

uses crt;
var i,s:longint;
begin
 clrscr;
  s:=0;
  for i:=1 to 100 do if(i mod 2=1)then s:=s+i;
  if(s mod 5=0)and(s mod 3=0)then write('tong cac so le tu 1 den 100 chia het cho 3 va 5')
  else write('tong cac so le tu 1 den 100 khong chia het cho 3 va 5');
 readln
end.

câu 2:

uses crt;
var i,dem,n:longint;a:array[1..99]of longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  dem:=0;
  for i:=1 to n do
        begin
         write('nhap a[',i,']=');readln(a[i]);
         if(a[i] mod 7=0)then inc(dem);
        end;
  write('co ',dem,' so chia het cho 7 trong mang');
 readln
end.