Trong Scratch:

1. Đúng. Có ba khối lệnh khác nhau để thể hiện cấu trúc lặp trong thuật toán là: "Lặp lại vô hạn", "Lặp lại" và "Lặp từ ... đến ...". Các khối lệnh này được sử dụng để lặp lại một đoạn mã trong chương trình một số lần hoặc vô hạn.

2. Sai. Cấu trúc lặp có thể được sử dụng để lặp lại một đoạn mã trong chương trình một số lần nhất định, hoặc lặp lại vô hạn lần. Ngoài ra, cũng có thể sử dụng biến để điều khiển số lần lặp.

3. Sai. Cấu trúc lặp trong Scratch không chỉ sử dụng để lặp lại một lệnh mà còn để lặp lại một đoạn mã bao gồm nhiều lệnh.

4. Đúng. Điều kiện dừng lặp phải là một biểu thức logic để xác định khi nào cần dừng vòng lặp. Ví dụ, điều kiện có thể là một biến đếm số lần lặp, một biểu thức so sánh hoặc một biểu thức logic phức tạp hơn.

Program HOC24;

var i,n: integer;

s: longint;

begin

write('Nhap n: '); readln(n);

s:=0;

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

write('S = ',s);

readln

end.

uses crt;

var i,n,s:integer;

begin

clrscr;

readln(n);

s:=0;

i:=0;

while i<=n do 

begin

i:=i+1;

s:=s+i*i;

end;

writeln(s);

readln;

end.

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to n do s:=s+1/(i*i*i);

write('S = ',s:6:2);

readln

end.

program TongS;

var

     n: Integer;

     S: Real;

     i: Integer;

begin

     write('Nhap n: ');

     readln(n);

     S := 0;

     for i := 1 to n do

     begin

          S := S + 1/Power(i,3);

     end;

     writeln('Tong S = ', S:0:2);

     readln;

end.

Program HOC24;

var i,n: integer;

s: real;

begin

write('Nhap N: '); readln(n);

s:=0; i:=1;

while i<=n do

begin

s:=s+1/(i*2);

i:=i+1;

end;

write('S= ',s:6:2);

readln

end.

uses crt;

var s,i:integer;

begin

clrscr;

s:=0;

i:=11;

while i<=101 do

  begin

s:=s+i;

i:=i+2;

end;

writeln(s);

readln;

end.

*Cách làm:*

Uses crt;

var s,n,i: integer;

begin clrscr;

readln(n);

for i:=1 to n do if(n mod 2<>0) then s:=s+i;

writeln(s);

readln;

end.

Program HOC24;

var i,n: integer;

S: real;

begin

write('Nhap N: '); readln(n);

s:=0;

for i:=1 to N do s:=s+1/i;

write('S= ',s:5:2);

readln

end.

Uses Crt;
Var A : array [1..1000] of longint;
n, m, d, t, i, S, k : longint;
Begin
//Phan A
        Clrscr;
Writeln(' Phan A ');
                Write(' Ban hay nhap 1 so n bat ky: ');
                Readln(n);
                Write(' Cac so chia het cho ba tu 1 den ',n,' la: ');
                        For i:=1 to n do
                                If (i mod 3) = 0 then Write(' ',i);
//Phan B
Writeln;
Writeln(' Phan B ');
                Write(' Ban hay nhap 1 so m bat ky: ');
                Readln(m);
                        For i:=1 to m do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        S:= S+A[i];
                                End;
                Write(' Tong cua day so tren la: ',S);
//Phan C
Writeln;
Writeln(' Phan C ');
                Write(' Ban hay nhap 1 so d bat ky: ');
                Readln(d);
                Write(' Ban hay nhap so K: ');
                Readln(k);
                        For i:=1 to n do
                                Begin
                                        Write(' Ban hay nhap hang tu thu ',i,': ');
                                        Readln(A[i]);
                                        If ((A[i] div k)=1)then t:=t+1;
                                End;
                Write(' Co tat ca ',t,' so giong ',k);
Readln;
End.