program BaiTap;

uses crt;

var

     a, b, c, i, n: integer;

     D: longint;

begin

     clrscr;

     a:=2;

     b:=3;

     c:=5;

     n:=7;

     D:=a+b+c;

     for i:=4 to n do

     begin

          a:=b;

          b:=c;

          c:=a+b;

          D:=D+c;

     end;

     writeln('Tong la: ', D);

     readln;

end.

program TongSoLe;

var

      i, S: integer;

begin

      i := 1;

      S := 0;

      while S < 2000 do

      begin

            S := S + i;

            i := i + 2;

      end;

      writeln('Tong cac so tu nhien le la: ', S);

      readln;

end.

Câu 14: Sau khi thực hiện đoạn chương trình sau, giá trị của biến a bằng bao nhiêu?

a:=2 ;  for a:= 1 to 3 do a:= a+1;

A. 4;                B. 3;                                C. 5;                              D. 2

cho mình hỏi cách giải

Uses crt;

var n,i,g: integer;

begin clrscr;

readln(n);

g:=0;

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

write(n,' ');

readln;

end.

In ra g chứ nhỉ sao lại in ra n bạn?

program TinhTongWhileDo;

var

     n, i: integer;

     S: real;

begin

     write('Nhap so n: ');

     readln(n);

     S := 0;

     i := 1;

     while i <= 2*n do

     begin

          S := S + 1/i;

          i := i + 1;

     end;

     writeln('Tong S=1/1+1/2+1/3+1/4+...+1/2n la: ', S:0:2);

     readln;

end.

program TinhTong;

var

     i, S: integer;

begin

     S := 0;

     for i := 1 to 10 do

          S := S + i;

     writeln('Tong cac so tu 1 den 10 la: ', S);

     readln;

end.

Program HOC24;

var i,n: integer;

s: real;

begin

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

s:=0;

for i:=1 to n do s:=s+1/(sqrt(i));

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

readln

end.