var a:array[1..99] of integer;

i,n:integer;

s:longint;

begin

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

for i:=1 to n do

begin

write('Nhap so thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then s:=s+a[i];

end;

writeln('Tong cac so le cua day la ',s);

write('Day dao nguoc la ');

for i:=n downto 1 do

write(a[i]:8);

readln

end.

var gt,i:longint;

begin

gt:=1;

for i:=2 to 10 do

gt:=gt*i;

write('10! = ',gt);

readln

end.

print("Nhập giá trị của n:")

n = int(input())

a = [ ]

for i in range(n):

      print("Nhập giá trị của a[{}]:".format(i))

      a.append(float(input()))

total_profit = sum(a)

average_profit = total_profit / n

daily_revenue = average_profit * 0.12

print("Doanh số bán hàng trung bình mỗi ngày là: {0:0.2f}".format(daily_revenue))

Bài 1: Viết chương trình tính tổng tiền thu được khi gửi tiết kiệm vào ngân hàng với số gốc là t đồng và k tháng với lãi suất là f%. Biết rằng lãi của tháng trước sẽ cộng vào gốc của tháng sau

print("Nhập số tiền gốc t (đồng):")

t = int(input())

print("Nhập số tháng k:")

k = int(input())

print("Nhập lãi suất f (%):")

f = float(input()) / 100

s = t

for i in range(k):

     li = s * f

     s = s + li

print("Tổng tiền thu được sau {0} tháng là {1:0.2f} đồng".format(k, s))

var s:real;

i,n,t:integer;

begin

repeat

write('Nhap n > 0 va n chia het cho 5 ');readln(n);

until (n > 0) and (n mod 5 = 0);

t:=round(n/5);

s:=1;

for i:=1 to t do

s:=s+1/(5*i);

write('A = ',s:10:2);

readln

end.

var a:array[1..1000] of integer;

i,n,d:integer;

begin

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

for i:=1 to n do

begin

write('nhap so thu ',i,' = ');readln(a[i]);

if a[i] mod 2 <> 0 then d:=d+1;

end;

write('Cac so o vi tri le la ');

for i:=1 to n do

if i mod 2 <> 0 then write(a[i]:8);

writeln;

write('co ',d,' so le');

readln

end.

Câu lệnh lặp không được thực hiện. Vì giá trị cuối nhỏ hơn giá trị đầu