ĐỀ THI TIN HỌC TRẺ KHÔNG CHUYÊN CỦA TỈNH BÌNH ĐỊNHcâu 1, từ 0 đến 100 bao nhiu số chia hết cho 3, in ra mỗi dòng 10 số! tính tổng của tất cả các số đó! Câu 2, kiểm tra a và b có phải là số nguyên tố tương đương hay ko? BÀI LÀMBài 1:var i,n:integer;s:longint;begins:=0;for i:=1 to 1000 doif i mod 3 = 0 then beginwriteln(i);s:=s+i;end;writeln(s);readln;end. Bài 2:var i,n:integer;s:string;begins:=`asd ,ds.sfa .sf`;i:=1;while ibeginif (s[i]=`.`) or (s[i]=`,`) then begin while s[i-1]=` ` do begin dec(i); delete(s,i,1); end; while s[i+1]` ` do begin insert(` `,s,i+1); end; end;inc(i);end;writeln(s);readln;end....