Một cửa hàng tung ra chương trình khuyến mãi như sau:
Cứ mỗi lần khách mua hàng sẽ được tặng 1 xu được tặng lần lượt như sau: Lần thứ 1 tặng 1 xu, Lần thứ 2 tặng 2 xu,…, Lần thứ n tặng n xu. Khi khách hàng mua được 100 xu thì sẽ được tặng 1 phần quà
EM HÃY VIẾT CHƯƠNG TRÌNH THỐNG KÊ thành tích học tập CỦA LỚP EM.
program chuongtrinhkhuyenmai;
uses crt;
var i,n: integer;
begin
clrscr;
write(‘Hay nhap so lan mua hang cua khach hang, N= ‘);
readln(n);
for i:=1 to n do writeln(‘Ban da duoc tang ‘,n,’ xu’);
if n:=100 then writeln(‘Ban da duoc tang mot phan qua’);
end.
–
program thongke;
uses crt;
var i,n: integer;
Ban: array[1..100] of real;
begin
clrscr;
write(‘Hay nhap so hoc sinh trong lop em, N= ‘);
readln(n);
writeln(‘Nhap so diem cua moi hoc sinh trong lop em:’);
for i:=1 to n do
begin
write(‘Ban[‘,i,’]=’);
readln(Ban[i]);
end;
for i:=1 to n do
writeln(‘Ban[‘,i,’]= ‘,Ban[i]);
end.
!!Cái bài thứ 2 là mik tự chế nha!!