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.
Câu hỏi trong lớp
Xem thêm