Chuyển sang lệnh While do T : = o; For i : =1 to 10 do T:=T+1 Writeln (i) ; 06/08/2021 Bởi Cora Chuyển sang lệnh While do T : = o; For i : =1 to 10 do T:=T+1 Writeln (i) ;
uses crt;var t,i : integer;begint:=0;while i<=9 do begint:=t+1;i:=i+1;end;write(i);readlnend. Bình luận
while i<=10 do
begin
i:=i+1;
t:=t+i;
end;
writeln(i-1);
uses crt;
var t,i : integer;
begin
t:=0;
while i<=9 do begin
t:=t+1;
i:=i+1;
end;
write(i);
readln
end.