uses crt;

var n,i,dem:integer;

begin

clrscr;

repeat

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

until n>0;

dem:=0;

for i:=1 to n do

if i mod 3=0 then

begin

write(i:4);

dem:=dem+1;

end;

writeln;

writeln('Trong pham vi tu 1 toi ',n,' co ',dem,' so chia het cho 3');

readln;

end.

bn có thể vt mô tả thuật toán cho mk lun ko

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if i mod 2=1 then s:=s+i;

writeln('Tong cac so le trong khoang tu 1 toi ',n,' la: ',s);

readln;

end.

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=0;

for i:=1 to n do

if i mod 2=0 then s:=s+i;

writeln('Tong cac so chan trong khoang tu 1 toi ',n,' la: ',s);

readln;

end.

uses crt;
var s,n:longint;
begin
clrscr;
s:=0;
n:=1;
while s<=10000 do
begin
s:=s+n;
inc(n);
end;
writeln(s);
writeln('So n nho nhat sao cho tong S>10000 la: ',n);
readln;
end.

uses crt;
var n:int64;
begin
clrscr;
n:=maxint;
while 1/n>=0.0005 do
begin
n:=n-1;
end;
writeln(n);
readln;
end.

Bước 1: Nhập n

Bước 2: A←0; i←1;

Bước 3: A←A+i/(i*(i+2))

Bước 4: i←i+1;

Bước 5: Nếu i<=n thì quay lại bước 3

Bước 6: Xuất A

Bước 7: Kết thúc

uses crt;

var n,i,j,kt,s:integer;

begin

clrscr;

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

s:=0;

for i:=2 to n do

begin

kt:=0;

for j:=2 to i-1 do

if i mod j=0 then kt:=1;

if kt=0 then s:=s+i;

end;

writeln(s);

readln;

end.