1...

program bai1;

var s,i,n:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do

if i mod 2<>0 then s:=s+i;

write('s= ',s);

readln

end.

\(\frac{4}{5}\)cái bánh tức là một cái bánh chia làm 5 phần bằng nhau, lấy đi 4 phần. \(\frac{4}{5}\)còn được gọi là 4:5.

Nếu đúng tick mình nha

ai đòng ý bài nguyên đúng tick cho tớ

program bai1;

var s,n,i:longint;

begin

write('N= ');

readln(n);

s:=0;

for i:=1 to n do s:=s+1/i;

write('S= ',s);

readln

end.

again...

program bai1;

var n,i,s:longint;

begin

repeat

write('N= ');

readln(n)'

until n>0;

for i:=1 to n do

if i mod2=1 then s:=s+i;

write('...');

readln

end.

program bai1;

var n,i,s:longint;

begin

repeat

write('N= ');

readln(n)'

until n>0;

for i:=1 to n do

if i mod2=0 then s:=s+i;

write('...');

readln

end.

program bai1;

var n,i,s:longint;

begin

repeat

write('N= ');

readln(n)'

until n>0;

for i:=1 to n do

if i mod2=0 then s:=s+i;

write9'...');

readln

end.

program bai1;

var s,i:longint;

begin

s:=0;

for i:=1 to n do

s:=s+i;

write('...');

readln

end.

program bai1;

var n,s:longint;

begin

write('N= ');

readln(n);

for i:=1 to n+1 do

if n+1 mod i=0 then write(i,' ');

readln

end.

program bai1;

var t,i,n:longint;

begin

{repeat

write('N= ');

readln(n);

unntil n>0}sử dụng repeat until cũng đc

t:=1;i:=2;

while i<=n do

begin

t:=t+1/i;

i:=i+1;

end;

write('T= ',t);

readln

end.