Viết chương trình tính và đưa ra màn hình tích S= 2.4.6...n cho tới khi n>=10 thì dừng
2 câu trả lời
uses crt;
var i,n,s:integer;
begin
s:=1;
for i:=1 to 10 do
if i mod 2=0 then s:=s*i;
write(s);
readln;
end.
uses crt;
var n,i,s: longint;
begin
clrscr;
s:=1;
repeat
i:=i+2;
s:=s*i;
until n>=10;
writeln ('tong la: ',s);
readln;
end.
