MỌI NGƯỜI ƠI GIÚP EM GIẢI BÀI NÀY VỚI Ạ EM CẢM ƠN !!! (bài này là viết chương trình nha mọi người) ĐỀ BÀI Em hãy viết chương trình nhập số N là số nguyên và thực hiện yêu cầu sau + Nếu N là số chẵn thì S = 2 x 4 x 6 x .... x N + Nếu N là số lẻ thì S = 1 x 3 x 5 x .... x N (mọi người giải gấp giúp em ạ tại ngày mai em nộp bài cho cô rồi ạ
2 câu trả lời
Program baitap;
Uses crt;
Var S:longint;
i,j,n:integer;
Begin
Clrscr;
S:=1;
Write('N='); Readln(N);
If (N mod 2=0) then
Begin
For i:=2 to N do If (i mod 2=0) then S:=S*i;
End
Else
Begin
For j:=2 to N do If (j mod 2<>0) then S:=S*j;
End;
Writeln('S=',S);
Readln
End.
Nếu có sai thì thông cảm nha
uses crt;
var n, i, s: longint;
begin
clrscr;
s:=1;
readln(n);
for i:=1 to n div 2 do
if (n mod 2=0) then s:= s*2*i;
for i:=1 to n div 2+1 do
if (n mod 2 <>0) then s:= s*(2*i-1);
write(s);
readln
end.
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết
- Đề thi học kì 2 môn địa 8 có lời giải chi tiết giúp các em luyện tập và củng cố kiến thức hiệu quả
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 5 Địa 8 có lời giải chi tiết
- Kiểm tra 15 phút lần 1 học kì 1 - đề số 4 Địa 8 có lời giải chi tiết
