Tin học viết chương trình pascal

[Huỳnh Nam Huy]

[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.

viết chương trình và màn hình kết quả của tính tích các số lẻ từ 1->n

 

[Code11]

var i,n:integer;
a:longint;
begin
a:=1;
write('Nhap n:');readln(n);
for i:=1 to n do if i mod 2 <> 0 then a:=a*i;
write(a);
readln;
end.

 

[0toanđnn]

Var i,n,t:longint;
Begin
readln(n);
t:=1;
For i:=1 to n do
If ( i mod 2 = 1) then t:=t*i;
write(t);
readln
End.


Chúc bạn học tốt !!!

 

[TTree]

Một cách khác!
var i,t,n:longint;
begin
readln(n); t:=1;
for i:=1 to n do
if odd(i) then t:=t*i;
writeln(t);
readln;
end.