2) var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do s:=s+i;

writeln(s);

readln;

end.

3) var i,n:integer; s:real;

begin

readln(n); s:=0;

for i:=1 to 200 do s:=s+i;

writeln(s);

readln;

end.

4) Var i,n:integer; s:real;

begin

readln(n); s:=1;

for i:=1 to 30 do s:=s+i;

writeln(s);

end.

6) var i,n,x,k:integer; s:real;

begin

readln(n); s:=0;

for i:=1 to n do

for x:=1 to n do

s:=x*i;

writeln(s);

end.

5) Var i,n:integer; s:longint;

begin

readln(n); s:=1;

for i:=1 to n do s:=s*i;

writeln(s);

end.

1) Như tên gọi của nó, câu lệnh lặp với số lần lặp cho trước chỉ thị cho máy tính thực hiện một lệnh hoặc một nhóm lệnh với số lần đã được xác định từ trước, còn với câu lệnh lặp với số lần lặp chưa biết trước thì số lần lặp chưa được xác định trước.
+) Trong câu lệnh lặp với số lần cho trước, điều kiện là giá trị của một biến đếm có giá trị nguyên đã đạt được giá trị lớn nhất hay chưa, còn trong câu lệnh lặp với số lần lặp chưa biết trước, điều kiện tổng quát hơn nhiều, có thể là kiểm tra một giá trị của một số thực, cũng có thể là một điều kiện tổng quát khác.
+) Trong câu lệnh lặp với số lần cho trước, câu lệnh được thực hiện ít nhất một lần, sau đó kiểm tra điều kiện. Trong câu lệnh lặp với số lần chưa xác định trước, trước hết điều kiện được kiểm tra. Nếu điều kiện được thỏa mãn, câu lệnh mới được thực hiện. Do đó có thể có trường hợp câu lệnh hoàn toàn không được thực hiện. nguồn:violet

t =5+2.5*2=10

Type mang=array [1..10] of integer;

var a:mang; i,n:integer;

begin

readln(n); for i:=1 to n do

begin

readln(a[i]);

end;

for i:=1 to n do

writeln(a[i]);

readln;

end.

Var i,n,s:integer;

begin

readln(n); s:=0;

for i:=1 to n do

if i mod 2 = 0 then s:=s+i;

writeln('tong so chan', s);

readln;

end.

Var n.i:integer;

begin

readln(n);

i:=2;

while ( i <= n) and ( n mod i <>0) do

i:=i+1;

if i=n then writeln('n la so nguyen to')

else writeln('n khong la nguyen to');

readln;

end.

Var i,n,t,s:integer;

begin

readln(n);

s:=0;

for i:=1 to n do

for t:=2 to n do s:=i*t;

writeln(s);

readln;

end.

var n,i,s:integer;
begin

readln(n);
for i:=1 to n do s:=s+i*i;
writeln(s);
readln;
end.

2/ Var i,n,sl:integer;

begin

readln(n); sl:=0;

for i := 1 to n do

if i mod 2 <> 0 then sl:=sl+1;

writeln('so le', sl);

readln;

end.