Câu 1: các câu lệnh sau trong pascal có hợp lệ không nếu không hãy sửa lại cho hợp lệ a, For i:=100 to 1 do writeln('A'); b, For i:=1.5 to 10.5 do writeln('A'); c, x:=10; while x:=10 do x:=x+5; d, x:=10; while x=10 do x= x+5; Câu 2: viết chương trình tính tổng 1+2+3+...+t với t là một số tùy ý cho người sử dụng viết vào MÌNH CẦN GẤP Ạ MAI THI RỒI

a) For i:=100 to 1 do writeln('A');
=> Câu lệnh trên không hợp lệ vì giá trị đầu < giá trị cuối
=> For i:=1 to 100 do writeln('A');
b) For i:= 1.5 to 10.5 do Writeln('A');
=> Câu lệnh trên không hợp lệ vì giá trị đầu và giá trị cuối là số nguyên
=> For i:= 1 to 10 do Writeln('A');
c) X:= 10; while X:= 10 do X:= X+5;
=> Câu lệnh trên hợp lệ
d) X:=10; while X=10 do X= X+5
=> Câu lệnh trên không hợp lệ
=> X:=10; while X: =10 do X:= X+5

Câu 2

Ta có hai hướng là dùng công thức và dùng lệnh For ... do
1.Dùng công thức:
program Tinh;
uses crt;
var n,s: longint;
begin
clrscr; readln(n); s:=n*(n+1)/2;
writeln('Tong la : ',s);
readln
end.
2.Dùng lệnh For ... do :
program Tinh;
uses crt;
var i,n: integer; s: longint;
begin
clrscr; readln(n); s:=0;
for i:=1 to n do s:=s+i;
writeln('Tong la : ',s); readln