bài 1;

program b1;

uses crtl

var i,n,x,s:integer;

begin

clrscr;

s:=1;

write('nhap n= '); readln(n);

for i:=1 to n do begin 

write('nhap so thu ',i,':'); readln(x); end;

if n mod x<>0 then s:=s*x;

writeln('tich cac so le',s);

bài2

program b2;

uses crt;

var i,n,a,t:integer;

begin

clrscr;

write('nhap n'); readln(n);

for i:=1 to n do begin

write('nhap so thu ',i,':'); readln(a); end;

if n mod a =0 then t:=t+a;

write('tong cac so chan',t);

readln

end.

bạn chạy và ktra lại có sai thì nói mik để sửa nha!!!!

* Viết chương trình nhập vào N và in ra màn hình tích các số lẻ đầu tiên trong phạm vi <= N

`TL`

program b1;

uses crtl

var i,n,x,s:integer;

begin

clrscr;

s:=1;

write('nhap n= '); readln(n);

for i:=1 to n do begin 

write('nhap so thu ',i,':'); readln(x); end;

if n mod x<>0 then s:=s*x;

writeln('tich cac so le',s);

* Viết chương trình nhập vào N và in ra màn hình tổng các số chẵn đầu tiên trong phạm vi <= N

`TL`

program b2;

uses crt;

var i,n,a,t:integer;

begin

clrscr;

write('nhap n'); readln(n);

for i:=1 to n do begin

write('nhap so thu ',i,':'); readln(a); end;

if n mod a =0 then t:=t+a;

write('tong cac so chan',t);

readln

end.

CHÚC BẠN HỌC TỐT