viết chương trình nhập vào một số nguyên N.Tính và xuất kết quả T ra màn hình T:=1*3*5*7*...*N. Nếu N là số lẻ

2 câu trả lời

program ct;

uses crt;

var i,n,s:integer;

begin

clrscr;

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

s:=1;

for i:=1 to n do

if i mod 2=1 then s:=s*i;

writeln('T:=',s);

readln

end.

uses crt;
var i,t,n:longint;
begin 
clrscr;
   write('Nhap N: ');readln(n);
   i:=-1; t:=1;
   while i+2<=n do 
      begin
         i:=i+2;
         t:=t*i; 
      end;
   writeln(t);
readln
end.

Câu hỏi trong lớp Xem thêm
3 lượt xem
2 đáp án
8 giờ trước