Question

Viết chương trình nhập vào số nguyên n sau đó tính tổng và tích từ 1 đến n bằng hàm while

Answer 1

program tinhtong;

uses crt;

var i,n,s: integer;

begin

clrscr;

readln(n);

i:=0;

s:=0;

while i<= n do

begin

s:=s+i;

i:=i+1;

end;

Write('tong s la',s);

readln

end.

Answer 2

program tinhtich;

uses crt;

var i,n,tich: integer;

begin

clrscr;

readln(n);

i:=1;

tich:=1;

while i<=n do

begin

tich:= tich * i;

i:=i +1;

end;

readln

end.