D

D

Program HOC24;

var i,n: integer;

t: longint;

f1,f2: text;

begin

assign(f1,'BAI1.INP');

reset(f1);

read(f1,n);

t:=0;

for i:=1 to n do if i mod 2=0 then t:=t+i;

close(f1);

assign(f2,'BAI1.OUT');

rewrite(f2);

write(f2,t);

close(f2);

end.

const fi='bai1.inp';

fo='bai1.out';

var f1,f2:text;

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

n,i,t,dem:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,n);

for i:=1 to n do 

  read(f1,a[i]);

t:=0;

dem:=0;

for i:=1 to n do 

  begin

if a[i] mod 2<>0 then t:=t+a[i]

else inc(dem);

end;

writeln(f2,'Tong cac so le la: ',t);

writeln(f2,'So so chan la: ',dem);

close(f1);

close(f2);

end.

const fi='bai1.inp';

fo='bai1.out';

var f1,f2:text;

a,m,lt,i:integer;

begin

assign(f1,fi); reset(f1);

assign(f2,fo); rewrite(f2);

readln(f1,a,m);

lt:=1;

for i:=1 to m do

lt:=lt*a;

writeln(f2,lt);

close(f1);

close(f2);

end.

thanks ạ

pham minh hoa Bài 1 cho đề như thế nào ? Thiếu dữ liệu đề bài rồi :vv

bai 1 viet cac tap hop sau bang cach 1

Nguyễn Văn Tân làm đúng nhưng cách làm như bạn thì sai ùi !

2^600 = ( 2^6 )^100 = 64^100

3^400 = ( 3^4)^100 = 81^100

Vì 64 < 81 nên 64^100 < 81^100

Nên : 2^600 < 3^400

2⁶⁰⁰ = (2⁶)¹⁰⁰ =32¹⁰⁰

3⁴⁰⁰  =(3⁴)¹⁰⁰ =81¹⁰⁰

Mà 32<81 

=> 2⁶⁰⁰<3⁴⁰⁰

`7/9-1/12`

`=28/36-3/36`

`=25/36`

\(\dfrac{7}{9}-\dfrac{1}{12}=\dfrac{28}{36}-\dfrac{3}{36}=\dfrac{25}{36}\)

Đáp án đúng : A