Question

Câu 1:

a) for i:=1 to 4 do writeln('A');

b) for i:=1 to 10 do writeln('A');

c) for i:=1 to 10 do writeln('A');

câu2

Cú pháp: while <điều kiện> do ;

Hoạt động:

- Lặp đến khi một điều kiện đã được cho trước thành false

- Nếu điều kiện luôn true thì sẽ xảy ra lỗi vòng lặp vô tận (chương trình sẽ chạy mãi)

câu3

Uses crt;

Var i,n:integer;

      a:array[1..1000] of integer;

Begin

clrscr;

Write('Nhap so hoc sinh: ');readln(n);

Writeln('Nhap diem hoc ki mon tin cua ',n,' em hoc sinh:');

For i:=1 to n do

Begin

Write('Hoc sinh thu ',i,' : ');

readln(a[i]);

End;

Writeln('Diem kiem tra cua ',n,' em hoc sinh vua nhap la:');

For i:= 1 to n do writeln('Hoc sinh thu ',i,' : ',a[i]);

readln;

End.