Question

Answer 1

Câu 1: 

Cú pháp: While <điều kiện> do <câu lệnh>;

Sơ đồ: 

Hoạt động: Câu lệnh viết sau từ khóa do được thực hiện khi biểu thức điều kiện còn nhận giá trị true. Biểu thức điểu kiện được tính giá trị trước khi câu lệnh được thực hiện, nhưng nếu biểu thức điểu kiện đã nhận giá trị false ngay từ đầu thì câu lệnh không được thực hiện lần nào.

Answer 2

Câu 2: 

a) j=12

k=43

b) Có 3 vòng lặp

n=9;

s=2

Answer 3

Câu 3: 

uses crt;

var a:array[1..100]of integer;

i:integer;

begin

clrscr;

for i:=1 to 100 do 

  begin

write('A[',i,']='); readln(a[i]);

end;

writeln('Day so ban vua nhap la: ');

for i:=1 to n do 

  write(a[i]:4);

writeln;

writeln('Day cac so duong la: ');

for i:=1 to n do

  if a[i]>0 then write(a[i]:4);

readln;

end.