KHÁM PHÁ Học Toán + Tiếng Anh theo Sách Giáo Khoa cùng học online và gia sư dạy kèm tại nhà từ lớp 1 đến lớp 12 với giá cực kỳ ưu đãi kèm quà tặng độc quyền"CỰC HOT".
Viết chương trình tính tổng 10 số tự nhiên đầu tiên
By Hailey
Viết chương trình tính tổng 10 số tự nhiên đầu tiên
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.
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.
đấy nhé
program tinh_tong;
uses crt;
var i,t:integer;
begin
clrscr;
t:=0;
for i:=1 to 10 do t:=t+i;
write(‘Tong 10 so tu nhien dau tien la: ‘,t);
readln;
end.