Viết chương trình tính tổng 100 số tự nhiên đầu tiên

464

Tailieumoi.vn biên soạn và giới thiệu bộ câu hỏi Tin học gồm các kiến thức lý thuyết và thực hành, giúp học sinh ôn tập và bổ sung kiến thức cũng như hoàn thành tốt các bài kiểm tra môn Tin học. Mời các bạn đón xem:

Top 1000 câu hỏi thường gặp môn Tin học (Phần 4)

Câu 70: Viết chương trình tính tổng 100 số tự nhiên đầu tiên

Lời giải:  

Program tinh_tong;

uses crt;

const : N:=100;

Var i,tong:integer;

begin

clrscr;

tong:=0; i:=1;

while i<=N do

begin

tong: = tong + i;

i:=i+1;

end;

Writeln('tong cua 100 so tu nhien dau tien la ',tong);
Readln ;
End.

Đánh giá

0

0 đánh giá