Bài tập 1: Làm bằng 2 cách( cách 1 : for … to… do , cách 2 : lệnh While…do ) . Tính tổng các số chẵn từ 1 đến N ( N nhập từ bàn phím )
Bài tập 2: làm bằng 2 cách. Tính tổng các số chia hết cho 3 nhỏ hơn hoặc bằng N ( N nhập từ bàn phím)
Bài tập 1: Làm bằng 2 cách( cách 1 : for … to… do , cách 2 : lệnh While…do ) . Tính tổng các số chẵn từ 1 đến N ( N nhập từ bàn phím )
Bài tập 2: làm bằng 2 cách. Tính tổng các số chia hết cho 3 nhỏ hơn hoặc bằng N ( N nhập từ bàn phím)
Bài 1:
C1: for…do
program bt1;
uses crt;
var i, S, N: integer;
begin
clrscr;
write (‘Nhap N:’); readln (N);
S :=0;
for i := 1 to N do
if i mod 2 = 0 then S := S + i;
writeln (‘Tong la:’ , S);
readln
end.
C2: while…do
program bt1;
uses crt;
var i, S, N: integer;
begin
clrscr;
write (‘Nhap N:’); readln (N);
S :=0; i:=1;
while i <= N do
begin
if i mod 2 = 0 then S := S + i;
i:=i+1;
end;
writeln (‘Tong la:’ , S);
readln
end.
Bài 2:
C1: for…do
program bt2;
uses crt;
var i, S, N: integer;
begin
clrscr;
write (‘Nhap N:’); readln (N);
S :=0;
for i := 1 to N do if i mod 3 = 0 then S := S + i;
writeln (‘Tong la:’ , S);
readln
end.
C2: while…do
program bt2;
uses crt;
var i, S, N: integer;
begin
clrscr;
write (‘Nhap N:’); readln (N);
S :=0; i:=1;
while i<=N do
begin
if i mod 3 = 0 then S := S + i;
i:=i+1;
end;
writeln (‘Tong la:’ , S);
readln
end.
Bài tập 1:
Cách 1:
program bt1;
uses crt;
var i, S, N: integer;
begin
clrscr;
write (‘Nhap N la:’); readln (N);
S :=0;
for i := 1 to N do if i mod 2 = 0 then S := S + i;
writeln (‘Tong la:’ , S);
readln
end.
Cách 2:
program bt1;
uses crt;
var i, S, N: integer;
begin
clrscr;
write (‘Nhap N la:’); readln (N);
S :=0;
while i <= N do if i mod 2 = 0 then S := S + i;
writeln (‘Tong la:’ , S);
readln
end.
Bài tập 2:
Cách 1:
program bt2;
uses crt;
var i, S, N: integer;
begin
clrscr;
write (‘Nhap N la:’); readln (N);
S :=0;
for i := 1 to N do if i mod 3 = 0 then S := S + i;
writeln (‘Tong la:’ , S);
readln
end.
Cách 2:
program bt2;
uses crt;
var i, S, N: integer;
begin
clrscr;
write (‘Nhap N la:’); readln (N);
S :=0;
while i <= N do if i mod 3 = 0 then S := S + i;
writeln (‘Tong la:’ , S);
readln
end.