viết chương trình pascal

**shinichi**

Thành viên năng động

Tổng số bài gửi : 43

Reputation : 11

Huy chương :

Postado 6/3/2014, 23:46

1. tính tổng từ 1 đến 50
2/tính tổng từ 1 đến N , N à số nhập từ bàn phím lol!

:

:

HEROSTAR 2K13

Thành viên mới

Tổng số bài gửi : 8

Reputation : 8

Postado 18/3/2014, 14:23

1) Program tinhtong;
  Var s,n,i:integer;
Begin
Writeln(' nhap vao n: ');readln(n);
  s:=0;
  For i:=1 to n do
s:=s+i;
Writeln(' vay tong tu 1 den n la: ',s);
readln
end.

HEROSTAR 2K13

Thành viên mới

Tổng số bài gửi : 8

Reputation : 8

Postado 18/3/2014, 14:27

program tinhtong1den50;

var i,tong:integer;

begin

tong:=0;

for i:=1 to 50 do

tong:=tong+i;

writeln(' vay tong tu 1 den 50 la: ',tong);

readln

end.

Sponsored content

Postado

#1
shinichi

#2
HEROSTAR 2K13

#3
HEROSTAR 2K13

#4
Sponsored content

#1 shinichi

#2 HEROSTAR 2K13

#3 HEROSTAR 2K13

#4 Sponsored content

#1
shinichi

#2
HEROSTAR 2K13

#3
HEROSTAR 2K13

#4
Sponsored content