viết trương trình tính tổng và tích các số tự nhiên từ 1 đến n với n được nhập từ bàn phím

Question

haianh · Answer

Program BTH;

uses crt; var n,i:longint;

s:word;

begin

clrscr;

Repeat

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

If n<0 then

writeln(‘So nhap khong hop le moi nhap lai’);

until n>0;

s:=1;

For i:=1 to n do

s:=s*i;

write(‘Tich day so tren la: ‘,s);

readln;

end.

ngochoa · Answer

program tong_tich;

uses crt;

var n,i,tong:integer;

tich:int64;

begin

clrscr;

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

tong:=0; tich:=1;

for i:=1 to n do

begin

tong:=tong+i;

tich:=tich*i;

end;

writeln(‘Tong la: ‘,tong);

writeln(‘Tich la: ‘,tich);

readln;

end.

0 bình luận về “viết trương trình tính tổng và tích các số tự nhiên từ 1 đến n với n được nhập từ bàn phím”