Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
a)
Input : Các hệ số a,b,c (a
Output:Tất cả các số thực x thoả mãm ax^2+bx+c , Phương trình có nghiệm kép,vô nghiệm, 2 nghiệm phân biệt
Ta có thuật toán:
B1: Nhập 3 số thực a,b,c
B2 : p=b*b-4ac
B3:Nếu p<0 thì đưa ra P vô nghiệm rồi kết thúc
B4 : Nếu P=0 thì đưa ra P có 1 nghiệm kép
B5:Nếu P>0 thì: P có 2 nghiệm phan biệt
B6 ; kt
chua chinh xac de bai yeu cau ta phai tiem nghiem mak
neu p>0 thi X1=(b-canP)/2a X2=(b+canp)/2a
p=0 thi x1=x2=-b/2a
Đ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
var
n,k,d,i,s:integer;
begin
write(' nhap n: ');
readln(n);
for i:= 1 to n do
begin
write('a[',i,']=');
readln(a[i]);
end;
for i:= 1 to n do
if k = a[i] then d:=d+1;
writeln(k,' xuat hien ',d,' lan trong mang ');
for i:= 1 to n do
if a[i] mod 2 = 0 then s:= s+a[i];
write(' tong so chan trong mang la :',s);
readln;
end.
CHÚC BẠN HỌC TỐT :D
ôi chết dưới phần nhập n bạn thêm :
write(' nhap k: ');
readln(k);
CHO mình nha
Bài 1.
Bước 1. Nhập N và dãy số \(a_1,a_2,...,a_N\)
Bước 2. \(i\leftarrow1\), \(S\leftarrow0\)
Bước 3. \(i\leftarrow i+1\)
Bước 4. 4.1 Nếu \(i>N\) thì kết thúc thuật toán và đưa ra kết quả.
4.2 \(a_i\ge0\) thì quay lại bước 3
4.3 \(S\leftarrow S+a_i\) rồi quay lại bước 3
Đáp án A