,",.,,¿… là s**

Program HOC24;

var i,n,d: integer;

a: array[1..1000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do 

begin

write('A[',i,']='); readln(a[i]);

end;

d:=0;

for i:=1 to n do if a[i] mod 2=1 then d:=d+1;

write('Co ',d,' so le trong mang');

readln

end.

bprogram min 

uses crt 

var A: array [1...250] of integer

tong :integer;

begin 

tong:=0

writeln(‘nhap n:’); readln (n) 

forr i:=1 to n do 

begin 

writeln (‘nhap phan tu thu ‘,i);

readln (A[i] );

end

for i:=1 to n do 

begin

if (A[i] mod 3=0) 

then tong:=tong +A[i];

end

writeln (Tong cac phan tu chia het cho 3) 

readln ;

end

ko ngen

ủa là sao, ko thì thoi chứ mắc j chọc ghẹo ngt

Câu 3: Viết câu lệnh rẽ nhánh tìm nghiệm của BPT ax2+bx+c>0 (a>0)

Đáp án :

Program gptb2; Uses crt; Var a,b,c:real; D,X1,X2:real; Begin Clrscr; Write(‘a,b,c:’); Readln(a,b,c); D:=b*b-4*a*c; If D<0 then writeln(‘Phuong trinh vo nghiem ’) Else Begin X1:=(-b-sqrt(D))/(2*a); X2:=-b/a-X1; Writeln(‘X1=’,X1:8:3,’ X2=’,X2:8:3); End; Readln; End.

HT

Câu 8. Câu lệnh while – do có cú pháp nào dưới đây?

A. while <điều kiện> do <câu lệnh>;

B. write <điều kiện> do <câu lệnh>;

C. while <điều kiện> to <câu lệnh>;

D. while <điều kiện> begin <câu lệnh>;end;

Câu 9. Cho biết kết quả khi thực hiện đoạn câu lệnh:

S:=0;

For i:=1 to 12 do if i mod 2 <>0 then S:=S+i;

Kết quả:

A. S=38

B. S=36

C. S=45

D. S=32

Câu 10. Cho biết kết quả khi thực hiện đoạn câu lệnh:

c:=a; a:=a-b; b:=a*c; S:=a+b;

Khi a=6 ; b=2. Kết quả:

A. S= 8

B. S= 9

C. S= 12

D. S=2

D NHA

XIN K