Bài 1:

program Bai_1;

uses crt;

var n,i,S: integer;

Begin

         clrscr;

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

         i:=1;

         while i<=n do

         begin

                  S:=S+i;

                  i:=i+1;

         end;

         write('Tong ',n,' stn dau = ',S);

         readln

End.

Bài 2:

program Bai_2;

uses crt;

var n,i,S: integer;

Begin

         clrscr;

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

         i:=1;

         while i<=n do

         begin

                  if i mod 2<>0 then S:=S+i;

                  i:=i+1;

         end;

         write('Tong le ',n,' stn dau = ',S);

         readln

End.

Bài 3:

program Bai_3;

uses crt;

var n,i: integer;

      x,S: real;

Begin

         clrscr;

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

         i:=1;

         while i<=n do

         begin

                  write('Nhap so thuc thu ',i,': '); readln(x);

                  S:=S+x;

                  i:=i+1;

         end;

         write('Trung binh cong ',n,' thuc = ',S/n:2:2);

         readln

End.

Bài 4:

program Bai_4;

uses crt;

var n: integer;

Begin

         clrscr;

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

         if n mod 2=0 then write(n,' la so chan')

         else write(n,' la so le');

         readln

End.

Bài 5:

program Bai_5;

uses crt;

var i,S: integer;

Begin

         clrscr;

         i:=1;

         while i<=10 do

         begin

                  S:=S+i;

                  i:=i+1;

         end;

         write('Tong 10 stn dau = ',S);

         readln

End.

Câu 1: 

program bai1;

var n,s,i:longint;

begin write('N= ');

readln(n); s:=0;

for i:=1 to n do s:=s+i;

write('s= ',s);

readln

end.

Câu 3:

Sử dụng For...to...do:

program oken;
uses crt;
var sum:real;
    n,i:longint;
    a: array[1..1000] of real;
begin
        clrscr;
        write('nhap so so phan tu cua mang: '); readln(n);
        sum:=0;
        for i:=1 to n do
                begin
                        write('a[',i,']: '); readln(a[i]);
                        sum:=sum+a[i];
                end;
        writeln('TBC=',sum/n:0:3);
        readln;
end.

Câu 4

#include <stdio.h>

int main() {

       int even = 24;

       int odd = 31;

if (even % 2 == 0) {

      printf("%d la so chan\n", even);

} else {

      printf("%d la so le\n", even);

}

if (odd % 2 != 0 ) {

      printf("%d la so le\n", odd);

}

else {

      printf("%d la so chan\n", odd);

} return 0;

}

Câu 5 :

program tinhtong;
uses crt;
var s,i,n:integer;
begin
s:=0;
for i:=1 to 10 do s:=s+1;
writeln ('tong cua s=',s);</p><p>readln</p><p>end.</p><p>2.</p><p>program tinhtong;</p><p>uses crt;</p><p>var i,L,s:integer;</p><p>begin</p><p>write('nhap gia tri L='); readln(L);</p><p>s:=0;</p><p>for i:=1 to L do s:=s+1;</p><p>writeln('tong cua s=',s);
readln
end.