Tìm và sửa lỗi trong chương trình pascal sau:

               Uses crt;

               Var i, n, t : integer;

               Begin

        clrscr;

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

        i := l; t := 0;

        while i <= n do 

begin 

      t := t + i;

      i := i + l;

      write('Tong = ', t);

             Readln;

             end.

Bài 1: Cho chương trình sau: Hãy nêu ý nghĩa từng câu lệnh trong chương trình và cho biết kết quả sau khi chạy chương trình này là gì? Hãy đặt đề bài cho bài toán này.

Program ga_cho;

Uses crt;

Var  g,c: byte;

Begin

  Clrscr;

  For g:=1 to 36 do

  For c:= 1 to 36-g do

  If (g+c= 36 ) and (2*g+4*c=100)  then writeln( ‘ so ga la: ‘, g,’ so cho la’,c);

Readln;

End.

Bài 2: Hãy viết chương  trình tính tổng các số nguyên tố trong khoảng từ 1 đến 50

a, Xác định bài toán

b, Mô tả thuật toán

c, Viết chương trình

Giúp mik vs mik cần bài gấp trc tối nay

Cho chương trình Pascal sau:

Program chuvi_duongtron :

uses crt;

const pi := 3.14;

var cv, r: real;

Begin

clrscr;

write(‘nhap ban kinh r = ‘);

 writeln(r);

cv:= 2*pi*r;

writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);

readln

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.

Cho chương trình Pascal sau:

Program chuvi_duongtron:

uses crt;

const pi = 3,14;

var cv, r: real;

Begin

    clrscr;

    write(nhap ban kinh r = );

    readln(r);

    cv:= 2*pi*r;

    writeln(‘chu vi duong tron la: ‘,cv:10:2, ‘ m’);

 readln

Hãy chỉ ra bốn lỗi có trong chương trình, sau đó hãy sửa lại cho đúng.