Câu 1: Cho 1 vài ví dụ về hoạt động lặp đi lặp lại trong cuộc sống?

Câu 2: Các câu lệnh lặp đúng hay sai? Nếu sai sửa lại cho đúng?

a) For i:=10 to 1 do write('a');

b) For i:=1 to 10 do write('a');

c) For i:=1 to 10 do write('a'); write('b');

Bài 3: For i:=1 to n do readln(a); lặp mấy lần?

Bài 4: Cho đoạn chương trình sau: S:=0; For i:= 1 to 5 do S:=S+i;

           Hỏi sau khi kết thúc chương trình thì S bằng bao nhiêu?

Bài 5: Viết chương trình tính tổng của 10 số tự nhiên đầu tiên.

   Làm nhanh nhanh giúp em nha mấy anh mấy chị. Cảm ơn trước nha.  :))

Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);

d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.

code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.

Tìm và sửa lỗi cho chương trình sau:

Bài 1:

Program bai 1;

Var x; n: integer;

Begin

        X=12

        Write(n:4,x:4);

ReadIn

End.

Bài 2:

Program 2bai;

Var i, n, s:real;

Begin

      S:=0

      For i:=0.5 to n do

               S=S+i;

      Write(s);

      ReadIn

End.

Em hiểu gì về đoạn chương trình sau

a) Var a array [1......10] of real;

b) Begin

Writeln ('Nhap day so thuc');

For i:=1 to 10 do

Begin

Write ('a[',i,']=');

Readln (a[i]);

End.

c) Writeln ('In day cac phan tu:');

For i:=1 to 10 do write (a[i]:5:2);Writeln;

d)For i:=10 downto 1 do write (a[i]:5:2);writeln;

e) S:=0;

For i:=1 to 10 do 'S:=S+a[i];

Write ('S='5:8:2);writeln;

Write ('S=',S/10: