Bài 1:
program tinhtich;
uses crt;
var i:integer
tc,tl:longint;
begin
clrscr;
tc:=0; tl:=0;
for i:=1 to 20 do
if i mod 2=0 then tc:=tc*i else tl:=tl*i;
writeln('Tich chan cac so tu 1 den 20 la: ',tc);
writeln('Tich le cac so le tu 1 den 20 la: ',tl);
readln
end.
Bài 2:
var n,i,d:integer;
var n,i,d:integer;
begin
clrscr;
write('Nhap n: '); readln(n);
d:=0;
writeln('Cac so le tu 1 den n la: ');
for i:=1 to n do
if i mod 2=1 then
begin
write(i,' ');
d:=d+1;
if d mod 15=0 then writeln;
end;
readln
end.