Question

Câu 1 S=1+1/2+1/3+....+1/10 a)For; b)While Câu2 S=1+2+3+......+10 a)Sử dụng For.......do; b) Sử dụng While.....do

Answer 1

Bài 1 

a,

Answer 2

baif 2

a,

Answer 3

Câu 1:

a)

Uses crt;

Var i:integer;

S:real;

Begin

Clrscr;

S:=0;

For i:=1 to 10 do

S:=s+1/i;

Writeln(s:4:2);

Readln;

End.

Answer 4

Câu 1:

b)

Uses crt;

Var i:integer;

S:real;

Begin

Clrscr;

S:=0;

I:=1;

While i<=10 do

Begin

S:=s+1/i;

Inc(i);

End;

Writeln(s:4:2);

Readln;

End.

Answer 5

Câu 2:

a)

Uses crt;

Var s,i:integer;

Begin

Clrscr;

S:=0;

For i:=1 to 10 do

S:=s+i;

Writeln(s);

Readln;

End.

Answer 6

Câu 2:

b)

Uses crt;

Var s,i:integer;

Begin

Clrscr;

S:=0;

I:=1;

While i<=10 do

Begin

S:=s+i;

Inc(i);

End;

Writeln(s);

Readln;

End.

Answer 7

1a) Với For...to....do:
*Kết quả:*

Answer 8

B2 (Giống b1 nhưng đơn giản hơn):

2a) Với For...to....do:
 Var i,S:integer;
Begin
  S:=0;
 For i:=1 to 10 do S:=S+i;
Writeln('Vay tong S=',S);
Readln
End.
*Kết quả:* (Cuối dòng)


2b) Với While...do:
Var i,S:integer;
Begin
  S:=0; i:=1;
  While i<=10 do
 Begin
  S:=S+i;
  i:=i+1;
 End;
Writeln('Vay tong S=',S);
Readln
End.
*Kết quả:*