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:...
Đọc tiếp
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.
