Câu 1:các câu lệnh sau pascal có đúng không nếu không hãy sửa lại cho đúng: a, for i:=1 to 10 do writeln ('A') b, var X; array [5...10] of char; c, X:=10; while X=10 do X:=X+5 d, for i=1.5 to 10.3 do writeln ('A'); Câu 2: viết chương trình tính tổng dãy n số nguyên

a) for i:=1 to 10 do writeln ('A'); (Thêm ; sau lệnh writeln)

b) var X: array [5..10] of char;  (Sửa dấu ; thành : và 5..10 chỉ 2 dấu . thôi nhé)

C) X:=10; while X=10 do X:=X+5; ( Thêm ; sau 5)

d)for i:=1.5 to 10.3 do writeln ('A');  (thêm : sau i)

Câu2: viết chương trình tính tổng dãy n số nguyên đầu tiên

uses crt;

var i,n,s: integer;

begin

clrscr;

writeln('Nhap n=');  readln(n);

for i:=1 to n do

s:=s+i;

writeln('Tong la:',s);

readln;

end.

viết chương trình tính tổng dãy n số nguyên nhap tu ban phim

uese crt;

var a:array[1..100] of integer

i,n,s: integer

begin

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

for i:=1 to n do begin

writeln('Nhap so nguyen thu',i,':'); readln(a[i]);

end;

for i:= 1to n do

s:=s+a[i];

writeln('tong la:',s);

readln;

end.