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.
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.
Đ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
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
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
a) \(1011010_2=90_{10}\)
b) \(A23_{16}=664342_{10}\)
c) \(86_{10}=1010110_2\)
d) \(127_{10}=1111111_2\)
Đáp án A