Question

Câu 1:Viết chương trình tổng các số tự nhiên liên tiếp sao cho tổng nhỏ nhất lớn hơn 30

Câu 2: Nêu 2 ví dụ về hoặc động lặp với số lần biết trước

Câu 3: Tìm lỗi sai và sửa lại cho đúng trong các câu lệnh Pascal đây

a) S:=0; i:=1;

While S < 100 do;

Begin S = S + 1

i:= i + 2

b)S:=0

For i:=1.2 to 5.7 do S=S+i;

Answer 1

Câu 3:
a) S:=0;i:=1;
While S<100 do
Begin S:=S+1;
i:=i+2;
end;

b) For i:=1.2 to 5.7 do (Sai)
-> giá trị đầu, giá trị cuối phải là số nguyên
- S:=S+i;

Answer 2

Câu 1 :
program tinhtong;
uses crt;
var S,i : integer;
begin
clrscr;
S:=0; i:=0;
while S <= 30 do
begin i:=i+1; S:=S+i end;
writeln('S= ',S);
readln;
end.