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