Câu 1
program Tinh_tong;
uses crt;
var S: real;
i: integer;
begin
S:=0;
for i:=1 to 60 do S:=S+1/i;
writeln('Tong can tinh la:',S);
readln;
end.
Câu 2(Hình ảnh)
CÂu 3
while<điều kiện>do<câu lệnh>;
Trong đó: Điều kiện là các phép so sánh
Câu lệnh thường là câu lệnh đơn giản hay câu lệnh ghép
Bước 1: Kiểm tra điều kiện
Bước 2 Nếu điều kiện là sai câu lệnh sẽ bị bỏ qua và việc thực hiện lặp kết thúc. Nếu đúng thì sẽ thực hiện câu lệnh và quay lại bước 1