Edit1.Text := 'Start!' ;
for i:=1 to 2 do
begin
Edit1.Text := Edit1.Text + '--';
for j:=1 to 2 do
begin
Edit1.Text := Edit1.Text + 'S';
for k:=1 to 3 do
Edit1.Text := Edit1.Text + '>';
end;
end;
end;
Etid1.Text := Edit1.Text + 'END!';
що виведеться на екран!!
for i:=1 to 2 do
begin
Edit1.Text := Edit1.Text + '--';
for j:=1 to 2 do
begin
Edit1.Text := Edit1.Text + 'S';
for k:=1 to 3 do
Edit1.Text := Edit1.Text + '>';
end;
end;
end;
Etid1.Text := Edit1.Text + 'END!';
що виведеться на екран!!
More Questions From This User See All
Answers & Comments
На экран выведится следующий текст: Start!--S>>>S>>>--S>>>S>>>END!
--S>>>S>>> - вот этот цикл повторяется дважды.