Var n , i , d : integer;

Begin

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

d:=0;

For i:=1 to n do

If i mod 2 = 0 then d:= d+1;

Write (d);

Readln;

End.

Var i, n : integer;

S : real;

Begin

Write (‘n=’); read(n);

S:=1;

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

Write(S);

Readln;

End.

Var i , x : integer;

S : real;

Begin

write (' x = '); read (x);

S:=0;

For i:=1 to x do S:= S+i;

Write (S);

Readln;

End.

Var n, i : integer ;

NT : Real;

Begin

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

NT := TRUE ;

If n<2 then NT := FALSE ;

For i:= 2 to n div 2 do

If n mod i=0 then NT:= FALSE ;

Readln;

End.

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.

a.

Var i : integer;

S : real;

Begin

S:= 0;

For i:=1 to 100 do S:= S + i;

Write (S);

Readln;

End.

b.

Var i : integer;

S : real;

Begin

S:= 0;

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

Write (S);

Readln;

End.

c.

Var i,n : integer;

S : real;

Begin

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

S:= 0;

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

Write (S);

Readln;

End.

d.

Var i : integer;

S : real;

Begin

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

S:= 0;

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

Write (S);

Readln;

End.

CHO TAM GIÁC ABC CÓ AB<AC VÀ GÓC A = 60 ĐỘ . GỌI D LÀ TRUNG ĐIỂM CỦA AC VÀ KẺ CE VUÔNG GÓC VỚI AB CHỨNG MINH : ADE ĐỀU . GIÚP ĐI

mk làm n phần tử nha

Var i , x , n : integer;

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

begin

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

x:=0;

For i:=1 to n do

begin

writeln ('a [ ' , i , '] ');

readln (a[i]);

end;

For i:=1 to n do

If (a [ i ] mod 2<> 0 ) then x:= x+a[i]);

write(' tong cac so le la ' ,x);

Readln;

End.