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