Hãy viết chương trình sử dụng lệnh lặp FOR để tính tổng các số tự nhiên từ 1 đến 10

  • 2 Đánh giá

D. Hoạt động vận dụng

Hãy viết chương trình sử dụng lệnh lặp FOR để 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;

for i:=1 to 10 do S := S + i;

writeln (S);

readln;

end.

  • 89 lượt xem
Cập nhật: 08/09/2021
Chia sẻ
Chia sẻ FacebookChia sẻ ZaloChia sẻ Twitter
Đóng