Viết chương trình pascal tính tích của n số chẵn. (n được nhập từ bán phím) gợi ý: nhập n= 7 kết quả = 48

2 câu trả lời

uses crt;
var n,i,s:longint;
begin
 clrscr;
  write('nhap n:');readln(n);
  s:=1;
  for i:=1 to n do if(i mod 2=0)then s:=s*i;
  write('ket qua=',s);
 readln
end.

uses crt;

var i, n, t : longint;

begin

clrscr;

t := 1;

write('nhap so n : '); readln(n);

for i := 1 to n do 

if i mod 2 = 0 then t := t * i;

write('tich = ', t);

readln

end.