bài tập pascal

[socola01]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

các anh chị giúp em làm 2 bài tập này với, em đang cần gấp. Cảm ơn các anh chị nhìu

bài 1: Viết thuật toán tính T = 1.2.3.4.... .n (với n là 1 số nguyên ) (dấu chấm kia là nhân)

bài 2: cho thuật toán sau

i:=0
T:= 1
begin
T:= T + i;
T: = i + 1; (chỉ có 1 trong 2 cái T này thui, em cũng ko nhớ rõ nữa rùi, hjx)
end

Hãy cho biết thuật toán trên thực hiện công việc gì. Sau phép toán, T cho ra kết quả bằng mấy

 

[kieuquocdat]

Bài 1: T:=1;
For i:=1 to n do T:=T*i;
Bài 2: Chịu (không hiểu đề)

 

[socola01]

Bài 1: T:=1;
For i:=1 to n do T:=T*i;
Bài 2: Chịu (không hiểu đề)

bài 1 bạn làm mình chạy thử trên pascal nhưng nó ko ra
thế này phải ko

program bt1;
var i, n, T : integer ;
begin
T:=1;
for i:=1 to n do T:= T*i;
readln
end.

 

[socola01]

các anh chị viết giúp em bài 1 với. Em đang cần gấp lắm rùi huhu

 

[o0_zz_0o]

program bt;
ues crt;
var n,i,t:longint;
begin
         write('n= ');readln(n);
         t:=1;
         for i:=1 to n do
         t:=t*i;
         writeln(t);
         readln
end.

nhớ thanks bài mình đó

 

[ochuotqb]

bài 2: Cho thuật toán sau

i:=0
t:= 1
begin
t:= t + i;
t: = i + 1; (chỉ có 1 trong 2 cái t này thui, em cũng ko nhớ rõ nữa rùi, hjx)
end

t=1 )..........................................................

 

[socola01]

t=1 )..........................................................

bạn có biết nó thực hiện công việc gì ko bạn ^^