Câu 1:
- cú pháp: while <điều kiện> do <câu lệnh>;
- quy trình thực hiện: Nếu điều kiện sai, câu lệnh sẽ bị bỏ qua và thực hiện lệnh lặp kết thúc. Nếu điều kiện đúng, thực hiện câu lệnh và quay lại bước 1.
Câu 3:
program kaito;
uses crt;
var a, x: integer;
begin
clrscr;
write('Nhap so nguyen a: '); readln(a);
for i:=1 to x do s:=a*a;
writeln('ket qua la: ',s);
readln
end.
CHÚC BẠN HỌC TỐT!!!