Seu próximo nível começa aqui
Seu desenvolvimento não pode ter limites. Garanta sua Assinatura Ilimitada e libere uma preparação completa com os melhores professores do Brasil.
Considere o seguinte código em Object Pascal.procedure TForm1.Button1Click(Sender: TObj...
Considere o seguinte código em Object Pascal.
procedure TForm1.Button1Click(Sender: TObject);
var x:integer;
s:integer;
begin
x:=1;
s:=0;
while (x<=10)do
inc(x);
inc(s,x);
label1.Caption:=inttostr(s);
end;
Após a sua execução no ambiente de desenvolvimento Delphi, o componente label apresenta a saída:
A
10
B
11
C
55
D
65
E
66