uses crt;

var i,t,a,b:integer;

begin

clrscr;

readln(a,b);

t:=0;

for i:=a to b do

t:=t+i;

write(t);

readln;

end.

program UocChung;

var

      a, b, i: integer;

      uocchung: array[1..100] of integer;

      n: integer;

begin

      write('Nhap a=');

      readln(a);

      write('Nhap b=');

      readln(b);

      n := 0;

      for i := 1 to 100 do

            if (a mod i = 0) and (b mod i = 0) then

            begin

                  uocchung[n] := i;

                  n := n + 1;

            end;

      write('Uoc chung cua ', a, ' va ', b, ' la: ');

      for i := 0 to n-1 do

             write(uocChung[i], ' ');

      readln;

end.

program Tong_phan_so;

     n, i, x : Integer;

     tong, tong_phan_so, tong_phan_so_chan, tong_phan_so_le : Real;

begin

     Write('Nhap n so: '); Readln(n);

     tong := 0;

     tong_phan_so := 0;

     tong_phan_so_chan := 0;

     tong_phan_so_le := 0;

     for i := 1 to n do

     begin

          Write('Nhap so thu ', i, ': '); Readln(x);

          tong := tong + x;

          tong_phan_so := tong_phan_so + x/100;

          if x mod 2 = 0 then

               tong_phan_so_chan := tong_phan_so_chan + x/100

          else

               tong_phan_so_le := tong_phan_so_le + x/100;

     end;

     Writeln('Tong cua ', n, ' so la: ', tong:0:0);

     Writeln('Tong phan so cua ', n, ' so la: ', tong_phan_so:0:2);

     Writeln('Tong phan so chan cua ', n, ' so la: ',tong_phan_so_chan:0:2);

     Writeln('Tong phan so le cua ', n, ' so la: ', tong_phan_so_le:0:2);

     Writeln('Gia tri trung binh cua ', n, ' so la: ',tong_phan_so/n:0:2);

end.

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,t=0;

cin>>n;

for (int i=1; i<=n; i++)

if (i%6==0) t+=i;

cout<<t;

return 0;

}

Program HOC24;

var i,n: integer;

S: longint;

begin

write('Nhap N: '); readln(n);

i:=2; s:=0;

while i<=n do

begin

s:=s+i;

i:=i+2;

end;

write('S=',S);

readln

end.

program TongCacSoChan;
var
    n, s, i: integer;
begin
    write('Nhap n: ');
    readln(n);
    s := 0;
    i := 2;
    while i <= n do
    begin
        s := s + i;
        i := i + 2;
    end;
    writeln('Tong cac so chan la: ', s);
    readln;
end.

Program HOC24;

var i,n,d: integer;

a: array[1..1000] of integer;

begin

write('Nhap N: '); readln(n);

for i:=1 to n do read(a[i]); readln;

d:=0;

for i:=1 to n do if a[i] mod 2=0 then d:=d+1;

write('Co ',d,' so chan' );

readln

end.

Uses crt;

var s,n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(n mod 2<>0) then s:=s+i;

writeln(s);

readln;

end.

 bạn có thể giải thik cho mik vì sao lại là for i:=1 to n do if(n mod 2<>0) then s:=s+i đc ko

cảm ơn bạn nhìu

Program HOC24;

var m,n: integer;

begin

write('Nhap N: '); readln(n);

write('Nhap M: '); readln(m);

write('Ket qua la: ',m+n);

readln

end.

Giúp mk với mai mk kiểm tra r

Program HOC24;

var n: integer;

s: real;

begin

n:=1; s:=0;

while s<=3.15 do

begin

s:=s+n;

n:=n+2;

end;

write('S= ',s:5:2);

readln

end.