Uses crt;

var i,n: integer;

a: array[1..100] of longint;

begin clrscr;

readln(n);

for i:=1 to n do read(a[i]); readln;

writeln(a[i]:3);

readln;

end.

n = int(input("Nhập số phần tử của dãy số: "))
numbers = []

# Nhập dãy số nguyên
for i in range(n):
    num = int(input(f"Nhập số thứ {i+1}: "))
    numbers.append(num)

# Xuất dãy số nguyên
print("Dãy số vừa nhập là:", end=" ")
for num in numbers:
    print(num, end=" ")

 Nếu lớp 10 về viết chương trình thì bạn nên sử dụng Python, còn lớp 8 và 11 vẫn Pascal bạn nhé.

# Mở tệp IN.INP để đọc thông tin
with open('IN.INP', 'r') as file_input:
    # Đọc hai số nguyên M và N từ tệp IN.INP
    M, N = map(int, file_input.readline().split())

# Mở tệp OUT để ghi thông tin
with open('OUT.OUT', 'w') as file_output:
    # Lặp qua tất cả các số nguyên trong phạm vi từ M đến N
    for num in range(M, N+1):
        # Kiểm tra xem số đó có phải là số chẵn không
        if num % 2 == 0:
            # Nếu là số chẵn, ghi số đó vào tệp OUT.OUT
            file_output.write(str(num) + '\n')

program TinhTongVaUoc;

var
  a, b, sum, i: integer;
  uoc: boolean;

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

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

  // Tinh tong a+b
  sum := a + b;
  writeln('Tong cua a va b la: ', sum);

  // In ra cac uoc cua tong
  write('Cac uoc cua tong a+b la: ');
  for i := 1 to sum do
  begin
    if sum mod i = 0 then
      write(i, ' ');
  end;
  writeln;

  // Kiem tra xem tong a+b co phai la so hoan hao hay khong
  uoc := false;
  for i := 1 to sum - 1 do
  begin
    if sum mod i = 0 then
      uoc := true;
  end;
  if uoc and (sum = 2 * sum div 2) then
    writeln('Tong a+b la so hoan hao')
  else
    writeln('Tong a+b khong phai la so hoan hao');
end.

Dùng app đúng không ạ.

Giọng nói

Máy ảnh.

Các ứng dụng của Google

Program HOC24;

var i: byte;

a: array[1..10] of real;

begin

for i:=1 to 10 do begin write('Nhap diem cua ban thu ',i,': '); readln(a[i]); end;

readln

end.

program nhapdayso;

var

      a: array[1..100] of integer;

      n, i: integer;

begin

      write('Nhap so phan tu cua day: ');

      readln(n);

      for i := 1 to n do

      begin

            write('Nhap phan tu thu ', i, ': ');

      readln(a[i]);

      end;

      writeln('Day so ban vua nhap la:');

      for i := 1 to n do

            write(a[i], ' ');

      readln;

end.

# Tính lũy thừa
a = 3
n = 2
power = a ** n
print(power)  # Kết quả: 9

# Tính giai thừa
n = 5
factorial = 1
for i in range(1, n+1):
    factorial *= i
print(factorial)  # Kết quả: 120