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 25/07/2021 Bởi Clara 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
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. Bình luận
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. Bình luận
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.
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.