Question

dùng ngôn ngữ lập trình Pascal,viết chường trình tính tổng 50 số tự nhiên đầu tiên.( dùng While..do,hoặc For..do)

Answer 1

while..do

Program HOC24;

var i: byte;

t: integer;

begin

i:=1;

while i<=n do

begin

t:=t+i;

i:=i+1;

end;

write('Ket qua la: ',t);

readln

end.

Answer 2

For..do

Program HOC24;

var i: byte;

t: integer;

begin

t:=0;

for i:=1 to 50 do t:=t+i;

write('Ket qua la: ',t);

readln

end.

Answer 3

program TinhTong50SoTuNhienDauTien;
var i, t: integer;
begin
  t := 0;

  for i := 1 to 50 do
  begin
    t:= t+ i;
  end;

  writeln('Tong cua 50 so tu nhien dau tien la: ', t);

readln;
end.

 

 

 

 

Answer 4

program TinhTong50SoTuDien;
var
  i, t, n: integer;
begin
  t:= 0;
  n := 1;

  while n<= 50 do
  begin
    t := t + n;
  n := n + 1;
  end;

  writeln('Tong cua 50 so tu nhien dau tien la: ', t);

  readln;
end.