1.tính tổng s=1+2+3+....N (N nhập từ bàn phím) 2. Viết chương trình nhập vào 2 số M N (M<N) đến số chia hết cho 2 trong phạm vi từ M đến N ####ai jup mk vs ạ :<<< tsk trước ạ

Bai 1:

Program NN;
Uses crt;
Var n,i,s: longint;
Begin
        Clrscr;
        Write('Nhap n: '); Readln(n);
        s:=0;
        For i:=1 to n do s:=s+i;
        Write('S = ',s);
        Readln
End.

Bai2:

Program NN;
Uses crt;
Var m,n,i,d: longint;
Begin
        Clrscr;
        Write('Nhap m,n: '); Readln(m,n);
        d:=0;
        For i:=m to n do
                If i mod 2 = 0 then inc(d);
        Write('D = ',d);
        Readln
End.

1.

uses crt;
var n,i,s:longint;
begin
clrscr;
   write('n= ');readln(n);
   for i:=1 to n do 
      s:=s+i; 
   writeln('S= ',s);
readln
end.

2.

uses crt;
var n,m,i,d:longint;
begin
clrscr;
   write('m,n= (m<n) ');readln(m,n);
   for i:=m to n do 
      if i mod 2=0 then inc(d);
   writeln('Co ',d,' so chia het cho 2 trong pham vi tu m den n');
readln
end.