Question

Viết chương trình tính tích từ 1 đến 30

Answer 1

uses crt;

var i,t:integer;

begin

t:=1;

for i:=1 to 30 do t:=t*i;

write(t);

readln

end.

Answer 2

program hotrotinhoc ;

var i,tong : integer ;

begin

tong:=0;

for i:=1 to 30 do tong:=tong+i;

write('Tong la:,tong');

readln

end.

Answer 3

uses crt;

var s: longintl;

i: integer;

begin

clrscr;

s:=1;

for i:= 1 to 30 do

s:=s*i;

writeln('Ket qua la ',s);

readln

end.

Answer 4

uses crt;

var s: real;

i: integer;

begin

clrscr;

s:=1;

for i:=1 to 30 do

s:=s*i;

writeln('Ket qua la: ',s);

readln

end.

Answer 5

nguyễn thị mai linh Ns chung thì bài này kq số rất lớn nên vs cách thông thường thì sẽ ko giải dc, nên t cx chịu!!!

Answer 6

Chào các bạn, mình có câu hỏi muốn hỏi như này, mình viết chương trình như sau, tính tích 30 số nguyên đầu tiên:
program tinhtoan;
uses crt;
var s,i,n: integer;
begin
clrscr;
s:=1;
i:=1;
while i<=30 do begin
s:=s+i;
i:=i+1;
end;
write (s);
readln;
end.
Mình không biết vì sao nó in ra bằng 0, mà mình nhập hai lần câu lệnh i:=i+1 thì lại cho ra kq đúng tức là:
begin
s:=s+i;
i:=i+1;
i:=i+1;
end;
thì lại cho ra kq đúng. à