var i,n: integer;

s:longint;

begin

write('nhap so n=');readln(n);

s:=0;

i:=1;

while i<=n do

begin

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

end;

write('tong cua',n,' so tu nhien dau tien la',s);

readln

end.

.

uses crt;
var a:array[1..5]of integer;
i,t:integer;
tb:real;
begin
clrscr;
for i:=1 to 5 do
begin
write('so thu ',i,'='); readln(a[i]);
end;
t:=0;
for i:=1 to 5 do
t:=t+a[i];
tb:=t/5;
for i:=1 to 5 do
if a[i]>tb then write(a[i]:4);
readln;
end.

uses crt;

var n,i:integer;

a:real;

begin

clrscr;

repeat

write('n='); readln(n);

until n>0;

a:=0;

i:=1;

while i<=n do

begin

a:=a+1/i;

inc(i);

end;

writeln('A=',a:4:2);

readln;

end.

*Với while..do
  Var a,b:integer;
     Begin
   a:=0; b:=0;
  While a<=10 do
Begin
 b:=b+a;
 a:=a+2;
end;
 Writeln('Vay tong cac so chan tu 1 den 10 la:',b);
Readln
End.

*Với for...do (đơn giản hơn chút)
Uses crt;
Var a,S:integer;
Begin
S:=0
For a:=1 to 10 do
Begin
If a mod 2 =0 then S:=S+a;
end;
Writeln('Vay tong cac so so chan tu 1 den 10 la',S);
Readln
End.
Viết a,b và a,S cả hai cách làm cho bạn dễ hình dung ạ! Sr for the late reply!

Cái chỗ S:= 0 ở cách 2  thì thêm ; Ở sau dòng lệnh là "S:=0;" nhé

Bài 2:

uses crt;

var i,n,s:integer;

begin

clrscr;

write('n='); readln(n);

s:=0;

for i:=n-20 to n do

s:=s+i;

write(s);

readln;

end.

a cảm ơn cậu nhé =))

Hình như câu này chỉ sử dụng câu lệnh for... to... do hay sao thoii í cậu. Thầy tớ gợi í thế

a)

uses crt;
var b:real;

i:integer;
begin
clrscr;
i:=10;
b:=1;
while i<=30 do
begin
b:=b*i;
i:=i+1;
end;
writeln('B=',b:0:0);

readln;

end.

b) uses crt;
var c,j:integer;
begin
clrscr;
j:=50;
c:=0;
while j<=100 do
begin
c:=c+j;
j:=j+1;
end;
writeln('C=',c);

readln;

end.

c) uses crt;

var i,d:integer;

begin

clrscr;

i:=-50;

d:=0;

while i<=50 do

begin

d:=d+i;

inc(i);

end;

writeln('D=',d);

readln;

end.

d) uses crt;

var n,i:integer;

e:real;

begin

clrscr;

write('n='); readln(n);

e:=0;

for i:=1 to n do

e:=e+1/(i*(i+2));

writeln('E=',e:4:2);

readln;

end.

Câu lệnh này đúng rồi