Đề thiếu rồi bạn

Bài 1: 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

inc(i);

end;

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

readln;

end.

Bài 2: 

uses crt;

var n,i,s:integer;

begin

clrscr;

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

s:=0;

i:=1;

while i<=n do 

  begin

s:=s+i;

i:=i+2;

end;

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

readln;

end.

alo

Cấp độ 1: Sử dụng một vài phép toán trong các phép cộng, trừ, nhân, chia.

Sử dụng 9 chữ số từ 1 đến 9 mỗi chữ số xuất hiện đúng một lần và một vài phép toán trong các phép toán cộng, trừ, nhân, chia (không dùng ký hiệu lũy thừa hay dấu ngoặc), để tạo ra kết quả đúng là 100.

Ví dụ: 1 + 2 +3 + 4 + 5 + 6 + 7 + 8 × 9 = 100.

Cấp độ 2: Sử dụng đầy đủ bốn phép toán cộng, trừ, nhân, chia.

Sử dụng 9 chữ số từ 1 đến 9 mỗi chữ số xuất hiện đúng một lần và đầy đủ bốn phép toán cộng, trừ, nhân, chia (không dùng ký hiệu lũy thừa hay dấu ngoặc), để ra kết quả đúng là 100.

Ví dụ: 8 × 5 : 2 + 9 × 4 + 7 × 6 + 3 – 1= 100

Cấp độ 3: Sử dụng mỗi phép toán cộng, trừ, nhân, chia đúng một lần.

Sử dụng 9 chữ số từ 1 đến 9 mỗi chữ số xuất hiện đúng một lần và bốn phép toán cộng, trừ, nhân, chia mỗi phép toán xuất hiện đúng một lần (không dùng ký hiệu lũy thừa hay dấu ngoặc), để ra kết quả đúng là 100.

Ví dụ: 1235 × 6 : 78 + 9 – 4 = 100

Cấp độ 4: Chèn các dấu cộng, trừ vào giữa các chữ số từ 1 đến 9. 

Chèn một vài dấu cộng hoặc dấu trừ vào giữa các chữ số từ 1 đến 9 hoặc phía trước chữ số đầu tiên (số 1) để có tổng là 100. Tuy nhiên, bạn không được thay đổi thứ tự các chữ số.

Ví dụ: – 1 + 2 – 3 + 4 + 5 + 6 + 78 + 9 = 100.

Cách điền dấu – 1 có trong ví dụ không phù hợp với học sinh lớp 3. Bạn hãy tìm thêm 7 cách điền các dấu cộng hoặc trừ vào giữa các chữ số từ 1 đến 9 phù hợp với học sinh lớp 3 mà không được thay đổi thứ tự các chữ số để nhận được kết quả đúng là 100.

program tinh_tong;

uses crt;

var i,N:byte;

     S:integer;

begin

        writeln('Nhap so N='); readln(N);

       i:=1;  S:=0;

        while i<=N do

            begin

               if (i mod 3=0) and (i mod 2=1) then S:=S+i;

               i:=i+1;

            end;

        writeln('Tong S=',S);

        readln

end.

nếu được thì mong bạn kiểm tra lại trên phần mềm dùng mình nhé, do ko có nên cx chẳng kiểm tra được. Thế nên sai thì thông cảm dùng mình nha

Bài 1: 

uses crt;

var m,n,i,t:integer;

begin

clrscr;

write('Nhap m='); readln(m);

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

t:=0;

for i:=m to n do 

  t:=t+i;

writeln(t);

readln;

end.

2:

uses crt;

var n:integer;

{---------------chuong-trinh-con-kiem-tra-chan-le---------------------}

function ktcl(x:integer):boolean;

begin

if x mod 2=0 then ktcl:=true

else ktcl:=false;

end;

{--------------------chuong-trinh-con-kiem-tra-duong-am-------------------}

fucntion ktda(x:integer):boolean;

begin

if x>0 then ktda:=true

else if x<0 then ktda:=false;

end;

{--------------------chuong-trinh-chinh-------------------------}

begin

clrscr;

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

if ktcl(n)=true then writeln('Day la so chan')

else writeln('Day la so le');

if ktda(n)=true then writeln('Day la so duong')

else writeln('Day la so am');

readln;

end.