Question

Viết công thức nhập n. Tính tổng các số thừ 1 đến n

Giúp mình với ạ.Mình cảm ơn

Answer 1

PROGRAM LOSER;

USES CRT ;

VAR

     n : integer ;

BEGIN

  clrscr;

  writeln(' n = ' ) ; read ( n);

  for i:=1 to n do

 writeln (i);

 readln ;

END.

Answer 2

 

var i，n，s: integer;

write (‘nhap n: ‘);  readln (n);

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

writeln (‘tong la: ‘，s);

Answer 3

program loser ;

uses crt ;

var

n : integer

begin

clrscr

writeln (^' n =^' ); read (n)

for i = 1 to (n) do

writeIn (i)

readIn

end