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.
