Bài 9. Làm việc với dãy số

TB

Viết chương trình tính tổng của các số tự nhiên từ 1 đến 50 bằng phương trình pascal

NT
26 tháng 5 2020 lúc 21:36

uses crt;

var i,t:integer;

begin

clrscr;

t:=0;

for i:=1 to 50 do

t:=t+i;

writeln(t);

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
HD
Xem chi tiết
H24
Xem chi tiết
N8
Xem chi tiết
GN
Xem chi tiết
MV
Xem chi tiết
NP
Xem chi tiết
SK
Xem chi tiết
TD
Xem chi tiết
MD
Xem chi tiết