0
0
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
6985
5165
program h247;
var i, n, tich, tong: integer;
begin
write('Nhap n '); readln(n);
tich:=1;
tong:=0;
for i:=1 to n do
begin
if i mod 2=0 then tich:=tich*i;
if i mod 2<>0 then tong:=tong+i;
end;
writeln('Tich cac so chan la ',tich);
writeln('Tong cac so le la ',tong);
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1769
1692
uses crt;
var i,n,tich,tong:integer;
begin
write('Nhap n '); readln(n);
tich:=1; tong:=0;
for i:=1 to n do
begin
if i mod 2 = 0 then tich:=tich*i;
if i mod 2 <> 0 then tong:=tong+i;
end;
writeln('Tich cac so chan la: ',tich);
writeln('Tong cac so le la: ',tong);
readln
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
1769
1692
Tháng sau anh sẽ duyệt thành viên nhé :v Em hoạt động năng nổ hơn nha.
546
512
bạn có thể cho mình vào nhóm được hông thienthuanhoidap247
1769
1692
Tháng sau mới duyệt thành viên mới nha :v
Bảng tin