Какой текст будет выведен на экран в результате выполнения следующего фрагмента программы? s: = example - id379832920200928 от Ухв 28.09.2020 23:20

Question

Информатика: Какой текст будет выведен на экран в результате выполнения следующего фрагмента программы? s: = example ; s0: = abc ; delete(s,1,3); writeln(s);

Ухв · Accepted Answer

{Выводит узор из 100 произвольно размещенных окружностей произвольного

радиуса и цвета}

uses Graph;

var

grDriver:integer;

grMode: integer;

grPath:string;

ErrCode:integer;

x,y,r: integer; ( координаты центра и радиус окружности }

i: integer;

begin

grDriver:=VGA;

grMode:=VGAHi;

grPath:=' ';

InitGraph (grDriver,grMode,grPath);

ErrCode:=GraphResult;

if ErrCode <> grOk then

begin

writeln ('Ошибка инициализации графического режима.1);

writeln ('Для завершения работы нажмите <Enter>');

readln;

Halt(l);

end;

Randomize;

for i:=l to 100 do

begin

x:=Random(640);

y:=Random(480);

r:=Random(240);

Setcolor(Random(16));

Circle(x,y,r);

end;

readin;

end.

Какой текст будет выведен на экран в результате выполнения следующего фрагмента программы? s: ='example'; s0: ='abc'; delete(s,1,3); writeln(s);

MOGZ ответил