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, mình nghĩ tổng cx bằng n vì từ đầu ta đã gán s:=0
b, câu này mik k biết 
bạn thông cảm nha 
Program So_nguyen;
uses crt;
Var a,b,t:integer;
Begin
clrscr;
Writeln(' Nhap 2 so nguyen a va b:');
if a>b then t:= a-b;
if a<b then t:=b-a;
if a=b then t:=0;
Writeln(' Ket qua la',t);
Readln;
End.
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
1:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%5==0) dem++;
}
cout<<dem;
return 0;
}
2:
#include <bits/stdc++.h>
using namespace std;
long long x,n,i,dem;
int main()
{
cin>>n;
dem=0;
for (i=1; i<=n; i++)
{
cin>>x;
if (x%2==0) dem++;
}
cout<<dem;
return 0;
}
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
Đáp án C