Chuyển sang lệnh While do S :=0 For i := 1 to 5 do S := S+1; Writeln (S) 06/08/2021 Bởi Melanie Chuyển sang lệnh While do S :=0 For i := 1 to 5 do S := S+1; Writeln (S)
i:=1; S:=0;
while i<=5 do
begin
S:=S+1;
i:=i+1;
end;
writeln(S);
Học tốt!
while i<=5 do
begin
i:=i+1;
s:=s+1;
end;
writeln(s);
$O^ke_n$