Input: N và dãy số a1, a2, ..., aN

Output: Các số nguyên tố có trong dãy đã cho

Thuật toán:

Bước 1: Nhập số nguyên dương N

Bước 2: Nhập dãy N số nguyên dương

Bước 3: Với mỗi số ai trong dãy, thực hiện:

- Nếu ai<2 thì không phải số nguyên tố

- Ngược lại:

+ Đặt biến dem = 0

+ Duyệt các số từ 1 đến ai

+ Nếu ai chia hết cho số đang xét thì tăng dem lên 1

- Sau khi duyệt xong: Nếu dem = 2 thì ai là số nguyên tố

Bước 4: In ra các số nguyên tố tìm được

Bước 5: Kết thúc thuật toán

Var a:array[1..200] of integer;

i,n:integer;

s:longint;

Begin

Write('Nhap so luong so ');readln(n);

For i:=1 to n do

Begin

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

End;

Writeln('Cac so vua nhap la ');

For i:=1 to n do write(a[i]:6);

Writeln;

Write('Tong la ');

For i:=1 to n do s:=s+a[i];

Write(s);

Readln;

End.

Bài 3: 

a: \(7_{10}=111_2\)

\(22_{10}=10110_2\)

\(97_{10}=\text{1100001}_2\)

import math

a = float(input("Nhập a: "))
b = float(input("Nhập b: "))
c = float(input("Nhập c: "))

d = b**2 - 4*a*c

if d > 0:
    x1 = (-b + math.sqrt(d)) / (2*a)
    x2 = (-b - math.sqrt(d)) / (2*a)
    print("Phương trình có hai nghiệm: x1 =", x1, "và x2 =", x2)
elif d == 0:
    x = -b / (2*a)
    print("Phương trình có nghiệm kép: x =", x)
else:
    print("Phương trình không có nghiệm thực."

Em cảm ơn ạ!!

hình như là C

:"(