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!';
що виведеться на екран!!

2 Янв 2020 в 19:49
274 +1
1
Ответы
1

Строка "Start!----SS>>>SS>>>END!" будет выведена на экран.

18 Апр 2024 в 21:52
Не можешь разобраться в этой теме?
Обратись за помощью к экспертам
Гарантированные бесплатные доработки в течение 1 года
Быстрое выполнение от 2 часов
Проверка работы на плагиат
Поможем написать учебную работу
Прямой эфир