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

var n,s,i:longint;

begin

write('n= ');

readln(n);

s:=0;

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

write('Tong cua 10 so tu nhien dau tien la',s);

readln;

end.

program bai1;

user crt;

var n,s,i:longint;

begin

write('n= ');

readln(n);

s:=0;

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

write('Tong cua 10 so tu nhien dau tien la',s);

readln;

end.

program tinhtong;

uses crt;

var s,i,n:integer;

begin

s:=0;

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

writeln ('tong cua s=',s);</p><p>readln</p><p>end.</p><p>2.</p><p>program tinhtong;</p>

p>uses crt;</p><p>var i,L,s:integer;</p><p>begin</p><p>write('nhap gia tri L='); readln(L);</p>

p>s:=0;</p><p>for i:=1 to L do s:=s+1;</p><p>writeln('tong cua s=',s);

readln

end.

Dksxkeejh cccjj bạn là con người rất yêu a ừ thì cụng ê ẩm cả các bạn r bằng95 bạn có thể làm được điều đó đi được làm từ thiện của mình có đánh giá tùy theo mình thì di bạn có thể làm được điều đó đi được làm từ thiện của mình có đánh giá cao hơn so với các bạn mini world cup chém gió cuối năm nay mình đã làm gì để nói chuyện với nhau không biết có phải là bạn đã xem tin tức sự kiện này đi trong nhà đi chứ không phải là bạn đã xem tin tức sự kiện này đi trong nhà đi