Tính tích các số lẻ (tich=1x3x5x...x n)
Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
uses crt;
var i,n,s:integer;
begin
clrscr;
readln(n);
s:=1;
for i:=1 to n do
if i mod 2=1 then s:=s*i;
write(s);
readln;
end.
Ta thấy 60 gấp 30 là 2 lần
mà 4 thì gấp 2 là 2 lần nên 60x2=30x4
mà A:4
B:8
=>A>B
b lon hon vi khi ta lay 30 nhan2 ra 60 va con nhan them 2 nua la ra 120 nhung sau khi cong het lai thi a chia cho 4 con b chia cho8 nen suy ra a lon hon b
Chj có thê ấn vào phân tìm kiếm đê có đáp án ah
#lâurôi
====ZU====
@EMĐÂY
Vì tích trên có các số: {5;15;25;35;45;55}
Mà tích trên là tích các số lẻ => tích trên có tận cùng là số 5 ( vì mọi số có tận cùng = 5 nhân cho mọi số lẻ vẫn có tận cùng = 5)
program C1;
uses crt;
Var A:array[1..100] of Integer ;
Tc, Tl : Integer ;
n, i: Btybe ;
begin
clrscr ;
Write( ' nhap n: ' ) ; Readln(n) ;
For i:=1 to n do
begin
Write ( ' A[ ' ,i, '] = ' ) ; Readln (A[i]) ;
end ;
Tc: = 0 ; Tl: = 0 ;
For i: = 1 to n do
If A[i] mod 2=0 then Tc:=Tc+A[i]
else Tl:= Tl + A[i] ;
Writeln ( ' Tong so chan : ' ; Tc) ;
Writeln ( ' Tong so le : ' , Tl ) ;
readln ;
end.
program b1;
uses crt;
var i,n: integer; a:array[1..100] of integer; p:longint;
begin
clrscr;
write('Nhap vao mot day so nguyen:'); readln(n);
for i:=1 to n do
begin
write('a[',i,']='); readln(a[i]);
end;
p:=1;
for i:=1 to n do if a[i] mod 2<>0 then p:=p*a[i];
write('Tich cac so le=',p);
readln;
end.
Tham khảo!
là 5 vì trong dãy số trên có số 5 mà 5 nhân với bất kì số nào cũng có tân cung băng 5 ngoại trừ số 0 mà dãy số trên không có số 0 thì chắc chắn tận cùng của day số trên là bằng 5