VD:

if (a*sqr(x))+(b*x)+c=0 then write({a ,b , c hoặc x (biến cần tìm)});

Đối với bài này mình nghĩ đề bài phải cho nhập a,b,c

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 ạ!!

B

Đáp án B: ngành khoa học về xử lý thông tin tự động dựa trên máy tính điện tử là đúng bn nhé

Chúc bn học tốt^^

Đang bận thi học kỳ nên không có làm được.

Btw câu 9,10 m có thể search gg :))

_{Không cần viết chương trình đâu chứ ha :3}

Câu 9 , 10 thì t search ra rồi =)) còn chờ mấy câu kia thoii

Test 1: 

a=2; b=4

=>-2

Test 2: 

a=0; b=0;

=>Vô số nghiệm

Cau 1:

var i,dem:integer;

function ngto(n:longint):boolean;
var bo:boolean;
i:longint;
begin
    bo:=true;
    for i:=2 to n-1 do 
    if n mod i=0 then bo:=false;
    if n>1 then ngto:=bo else ngto:=false;
end;
begin
    for i:=2 to 100 do 
    if ngto(i) then dem:=dem+i;
    write(dem);
readln;
end.

Cau 2:

var i,dem,n:longint;

begin
    read(n);
    dem:=1;
    for i:=1 to n do 
    dem:=dem*i;
    write(dem);
readln;
end.