Hãy viết chương trình sử dụng lệnh lặp WHILE - DO để tính tổng các số tự nhiên từ 1 đến 10
68 lượt xem
E. Hoạt động tìm tòi mở rộng
Hãy viết chương trình sử dụng lệnh lặp WHILE - DO để tính tổng các số tự nhiên từ 1 đến 10
Bài làm:
Uses crt;
Var S, i: integer;
Begin
clrscr;
S : = 0;
i := 1;
while i <= 10 do
begin
S := S + i;
i := i + 1;
end;
writeln (S);
readln;
end.
Xem thêm bài viết khác
- Em hãy cho biết đoạn chương trình tính tổng các số tự nhiên từ 1 đến 10 sau đây...
- Theo quy ước đặt tên của ngôn ngữ lập trình pascal, em hãy chỉ ra tên nào không hợp lệ
- Em hãy cho biết trong 4 đoạn chương trình ở mục B.1 đoạn chương trình nào thực hiện được...
- Những câu lệnh nào của Pascal dưới đây gán giá trị true cho biến ok...
- Hãy mô tả chương trình vẽ một hình tam giác bằng nhân vật bút chì (vẽ bằng đầu bút chì)
- Xét bài toán dưới đây. Thuật toán của mỗi bài đều được mô tả theo hai cách. Em hãy tìm...
- Em hãy thực hiện lại chương trình ở mục B.3 và nhập vào giá trị của R là 3.141592. Hãy cho biết kết quả hiển thị...
- Qua các ví dụ về sử dụng câu lệnh cảm biến em hãy chỉ ra sự giống nhau và khác nhau...
- Trong các câu sau, câu nào nói đến hành động hay phản ứng của nhân vật do nhân vật có những nhận biết (hay cảm ứng) nhờ các giác quan
- Để tìm hai số lớn hơn trong hai số a và b sau đó gán cho biến c...
- Ngay sau khi thực hiện mỗi câu lệnh dưới đây, giá trị của biến nguyên a sẽ là bao nhiêu...
- Hãy kéo thả lần lượt các lệnh sau vào cửa sổ lệnh và thực hiện chúng để tìm hiểu xem...