var ar:array[1..10] of integer; i,n:integer; begin writeln('Array'); n:=1; for i:=10 downto 1 do begin; ar[i]:=n; writeln('ar[',n,']=',ar[i]); n+=1; end; end.
Компьютерный вирус это специально написанная не большая по размерам программа, которая может приписывать себя к другим программам то есть заражать их, а также выполнять нежелательные действия на компьютере. программа внутри которой находится вирус называется зараженной. когда такая программа находит работу то сначала управления получает вирус. вирус находит и заражает другие программы, а также выполняет вредные действия. например: портит файлы или таблицу размещения файлов на диске а также засоряет оперативную память.
В начале в строке находилось 333 троек по 8 плюс одна 8, всего 1000 восьмерок. 1. При выполнения цикла каждая из троек 8 будет заменена на одну 9. Значит у нас получится строка длиной в 334 символа, где 333 девятки и последний символ - восьмерка 2. Далее 333 девятки заменятся на 111 восьмерок плюс последняя восьмерка - всего получим 112 восьмерок 3. Из 112 восьмерок получится 37 девяток и одна восьмерка 4. И 37 девяток получим 12 восьмерок плюс одна девятка и плюс последняя восьмерка 5. 12 восьмерок дадут 4 девятки плюс последние 9 и 8 6. И наконец получаем строку 8998 ответ: 8998
i,n:integer;
begin
writeln('Array');
n:=1;
for i:=10 downto 1 do
begin;
ar[i]:=n;
writeln('ar[',n,']=',ar[i]);
n+=1;
end;
end.