cho s:=o , i:=1 to 10 if i mod 2 =0 then s:=s+i TÍNH GIÁ TRỊ CỦA S
2 câu trả lời
Uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
if ( i mod 2=0) then s:=s+i;
writeln(‘tong la’,s);
readln;
end.
Uses crt;
var i,s:integer;
begin
clrscr;
s:=0;
for i:=1 to 10 do
if ( i mod 2=0) then s:=s+i;
writeln(‘tong la’,s);
readln;
end.