Program HOC24;

var s1,s2: string;

i: byte;

begin

write('Nhap xau S: '); readln(s);

s1:='';

for i:= length(s) downto 1 do

if s[i] in ['A'..'Z'] then s1:=s1+s[i];

write('Xau S1 : ',s1);

readln

end.

Program HOC24;

var a,b,c,d: integer;

Begin

write('Nhap a: '); readln(a);

write('Nhap b: '); readln(b);

write('Nhap c: '); readln(c);

write('Nhap d: '); readln(d);

if (a=0) or (b=0) or (c=0) or (d=0) then write('Tich 4 so bang 0');

if a*b*c*d>0 then write('Tich 4 so do la so duong');

if a*b*c*d<0 then write('Tich 4 so do la so am');

readln

end.

n = int(input("Nhập số nguyên n: "))

tong = 0

i = 1

while i <= n:

          tong += i

          i += 1

print("Tổng các số từ 0 đến", n, "là:", tong)

program TongChan;

var

     S, i: integer;

begin

     S := 0;

     i := 2;

     while S > 2000 do

     begin

          S := S + i;

          i := i + 2;

     end;

     writeln('Tong cac so chan la ', S);

     readln;

end.

⇒ Đáp án:     C. Lệnh Find and Replace ... trong bảng chọn Edit

A=input("Nhập dãy các số cách nhau bởi dấu cách: ")

S=A.split()

k = 0

n=[]

c = len(S)

m1 = min(S)

m2 = max(S)

for x in S:

          n.append(float(x))

b=[]

for a in n :

          if a % 2 != 0 :

                   b.append(float(a))

S=0

for i in b:

    k=k+i

print("Số lượng các số đã nhập",c)

print("Tổng các số lẻ là", k)

print("Số nhỏ nhất là", m1)

print("Số lớn nhất là ", m2)

làm sao để tìm số nhỏ nhất ở vị trí lớn nhất vậy bạn

Đổi 4TB=4096

Số giờ có thể xem phim là:

4096:5=819,2(h)

Số bộ phim có thể xem đc là:

819,2:2,5=327,68(bộ)

Đ/S:........

Program Tong__nghich__dao;

Var

n,i:real;

S:Integer;

Begin

Write('Nhap n=');Readln(n);

S:=0;

For i:=1 to n do S:=S+1/i;

Write('Tong can tim la: ', S:6:2);

Readln;

End.

:v