BT lệnh repeat...until

Viết chương trình in ra màn hình 20 dòng thông báo “chao cac ban”
program ccban;
var i:integer;
begin
i:=1;
repeat
i:=i+1;
writeln(`chao cac ban`);
until i>20;
readln;
end.
Viết chương trình in ra màn hình n dòng thông báo “chao cac ban”
program ccban;
var i,n:integer;
begin
write(`nhap n: `); readln(n);
i:=1;
repeat
i:=i+1;
writeln(`chao cac ban`);
until i>n;
readln;
end.
Viết chương trình tính tích p=1.2.3…n
program tinh_tich;
var i,p,n:integer;
begin
writeln(`tinh giai thua`);
write(`nhap n= `);readln(n);
p:=1;
i:=1;
repeat
p:=p*i;
i:=i+1;
until i>n;
write(`tich`,n:4,` so dau tien la`,p:4);
readln;
end.
Viết chương trình tổng S=1+3+5+…+n

program viet_chuong_trinh_n_so_le_dau_tien;
var s,i,n:integer;
begin
writeln(`chuong trinh n so le dau tien `);
write(`nhap so le n: `);readln(n);
s:=0;
i:=1;
repeat
begin
if i mod 2<>0 then s:=s+i;
i:=i+1;
end;
until i>n;
write(`tong cac so le den`,n:4,` la`,s:4);
readln;
end.



Viết chương trình tính tổng S=2+4+6+…+n
program tinh_tong_n_so_chan_dau_tien;
var i,s,n:integer;
begin
writeln(`tinh tong n so chan dau tien`);
write(`nhap so chan n= `);readln(n);
s:=0;
i:=1;
repeat
begin
if i mod 2=0 then s:=s+i;
i:=i+1;
end;
until i>n;
write(`tong cac so chan den`,n:4,` la`,s:4);
readln;
end.
Viết chương trình tính tích p=xn

program x_mu_n;
var i,p,n:integer;
begin
writeln(`tinh giai thua`);
write(`nhap n= `);readln(n);
p:=1;
i:=1;
repeat
p:=p*x;
i:=i+1;
until i>n;
write(`tich la`,p:7);
readln;
end.
Viết chương trình tính tổng S=1+2+3+…+n

program tinh_tong;
var i,s,n:integer;
begin
writeln(`tinh tong n so dau tien`);
write(`nhap so chan n= `);readln(n);
s:=0;
i:=1;
repeat
begin
s:=s+i;
i:=i+1;
end;
until i>n;
write(`tong cac so den`,n:4,` la`,s:4);
readln;
end.

Viết chương trình tính tổng S=1-2+3-4+5…+/-n

program tinh_tong_chan_le;
var i,s,n:integer;
begin
write(`nhap so chan n= `);readln(n);
s:=0;
i:=1;
repeat
begin
if i mod 2=0 then s:=s-i
else s:=s+i;
i:=i+1;
end;
until i>n;
write(`tong la`,s:6);
readln;
end.

Viết chương trình tính tổng S=1+1/2+1/3+…+1/n
program tinh_tong;
var i,n:integer; s:real;
begin
write(`nhap so chan n= `);readln(n);
s:=0;
i:=1;
repeat
begin
s:=s+1/i;
i:=i+1;
end;
until i>n;
write(`tong la`,s:5:1);
readln;
end.

Viết chương trình tính tổng S=1/2+1/4