program bai1;

var a:array[1..100] of longint;

n,k,s,i:longint;

tbc:real;

begin

repeat

write('N= ');readln(n);

until n>0;

for i:=1 to n do

begin

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

end;

k:=0;s:=0;

for i:=1 to n do

if (a[i] mod 5=0) then

begin

s:=s+a[i];

k:=k+1;

end;

tbc:=s/k;

writeln('Trung binh cong la ',tbc)l

readln

end.

bổ sung thên

writeln('Ket qua la ',s);

program bai1;

var n,t:longint;

s:real;

begin

write('N= ');readln(n);
t:=n;
while n<>0 do
begin
S:=S*10+n mod 10;
n:=n div 10;
end;
If S=t then writeln('so doi xung')
else writeln('khong doi xung');
readln;
end.

36 ;396

180 ; 252

program bai1;

var e,s,i:longint;

begin

write('E= ');readln(e);

write('n= ');readln(n);

s:=0;

while 1/n <e do

begin

for i:=1 to n do

s:=s+1/i;

end;

writeln('Tong la ',s);

readln

end.

khi đó : nếu a chia hết cho b và b chia hết cho a thì  a=b hoặc a=-b 

thật vậy đó a chia hết cho b nên a= bq với q thuộc Z. Lại b chia hết cho a nên b=ap với q thuộc Z 

suy ra a=bq=(ap)q tức là pq bằng 1 vì a khác 0.Vậy p=q=1 hoặcp=q=-1

Giup toi nhanh vs toi tick cho 

nó mở khóa khi hết hiệu lực khóa

                                                            Bài giải

                      Số quả táo hai chị em Mai hái được là:

                                    10 + 15 = 25 ( quả táo )

                                          Đáp số: 25 quả táo.        

program whiledo;

var i,n:longint;

s:real;

begin

write('N= ');readln(n);

s:=0;i:=1;

While i<= n do

begin

s:=s+1/i;

i:=i+1;

end;

writeln('Tong la ',s);

readln

end.