1.

Var i : integer;

S : real;

Begin

S:= 0

For i:= 1 to 6 do S:= S+(i - (i+1));

Write (S);

Readln;

End.

2.

Var i : integer;

S : real;

Begin

S:= 0

For i:= 1 to 6 do S:= S+((i+1)/i);

Write (S);

Readln;

End.

số đó là: 15 = 10 + 5 = 1 + 5 + 9 = 159

ko xuất hiện

Var n , i : integer;

S : real;

Begin

write (' n = ') ; read (n);

S:= 0;

For i : = 1 to n do S : = S + i/(i+1);

writeln (S);

readln;

end.

chim 10 can la chim yen

qua 100 can la qua ta

ca si 1000 can la ca si Trong Tan

1.

Var a , b : integer;

S , P : real;

Begin

write (' a = '); read (a);

write (' b = '); read (b);

P : = (a + b) * 2;

S : = a*b ;

write (' chu vi hinh chu nhat la ', P );

write (' dien tich hinh chu nhat la',S);

Readln;

End.

2.

Var a : integer;

P , S : real;

Begin

write (' a = '); read (a);

P : = a * 4 ;

S : = a*a;

write (' chu vi hinh vuong la ', P );

write (' dien tich hinh vuong la',S);

Readln ;

End .

Còn lại tự làm nha

Chúc bạn học tốt

Bài dễ quá mà ko bt làm sao

Var i , n : Integer;

S : real;

Begin

write (' n = ') ; read (n);

S:=0

For i:=1 to n do S:= S + 1/i;

Writeln ( S );

Readln;

End.

5x + 15  =29-2x

5x  + 2x = 29 - 15

7x  = 14

x    = 14 : 7

x   = 2 

Var n , a , i : integer;

Begin

write (' n = ') ; read (n);

write (' a = ') ; read (a);

For i:=1 to n do

If i > a then write (i ' ');

Readln;

End.