Question

ai làm giúp mình với : viết chương trình tính tổng từ

1 đến 100 bằng 2 cách for ...to...do và while....do? em cần gấp ạ

Answer 1

Uses Crt;
Var A : Array [1..100] Of Integer ;
i , j , n , T : Integer ;

BEGIN
Clrscr ;
Write(' Do dai cua day so N = ') ; Readln (N) ;
Writeln (' Nhap day so : ') ;
For i := 1 To N Do
Begin
Write('A[', i ,'] = ') ; Readln ( A ) ;
End ;
i := 1 ;
While (i <= n-1) Do
Begin
j := i+1;
While j<=n do
Begin
If A[j] < A then
Begin
T := A[j];
A[j ] := A;
A := T ;
End ;
j := j + 1;
End ;
i := i + 1;
End ;
Writeln(' Day sau khi sap xep : ') ;
For i := 1 To N Do Write(A : 4) ;
Readln ;
END .

Answer 2

uses crt;

var

i,tong:integer

begin

tong:=0;

for i:=1 to 100 do

tong:=tong+i;

write(tong);

readln;

end.

Answer 3

uses crt;

var

i,tong:integer

begin

clrscr;

tong:=0;

i:=1

while i<0 do

begin

tong:=tong+i;

i:=i+1;

end;

write(tong);

readln;

end.

Answer 4

1. for....do

var i,s:integer;

begin

s:=0;

for i:=1 to 100 do s:=s+i;

writeln('tong cua 100 so tu nhien dau tien la',s);

readln

end.

2. while...do

var i,s:integer;

begin

i:=1;

s:=0;

while i<=100 do

begin

s:=s+i; i:=i+1;

end;

writeln('tong cua 100 so tu nhien dau tien la',s);

readln

end.

Answer 5

var i: integer;

s: longint;

begin

s:=0;

i:=1;

while i<=n do

begin

s:= s+i; i:= i+1;

end;

write('tong tu 1 den 100 la ', s);

readln

end.

2.

var i: integer;

s: longint;

begin

s:=0;

for i:=1 to 100 do s:= s+i;

writeln('tong tu 1 den 100 la: ', s);

readln

end.