Объяснение:
& не стоит у меня, но выполняет свои действия, у себя его ставьте!
Program nums;
<span>var num:array[1..1000] of integer;
</span><span>var i,maxnum: integer;
</span><span>
begin
</span><span>Randomize;
</span><span>for i:=1 to 1000 do num[i] := random(1000000);
</span><span>for i:=1 to 1000 do
</span><span>begin
</span><span>if num[i] > maxnum then maxnum:=num[i];
</span><span>end;
</span><span>Writeln('самое большое число ',maxnum);
</span><span>end.</span>
1- думаю г :D
2- г? что ли я не видела ничего такого где можно было бы редактировать... там просто записываешь и все вроде :D сам проверь)
Var a,b,c,s,n,i:integer;
begin
readln(n);
b:=1;
for i:=1 to n do
begin
c:=b+a;
s:=s+c;
a:=b;
b:=c;
end;
writeln('s=',s);
<span>end.</span>
Результат: ТМРРО
Const abc = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯА';
Var s : String;
Function Alg(ss : String) : String;
Var i : Integer;
Begin
If Odd(Length(ss)) then Insert(ss[(Length(ss) div 2)+1],ss,(Length(ss) div 2)+1) else ss:='С'+ss;
For i:=1 to Length(ss) do If Pos(ss[i],abc)>0 then ss[i]:=abc[Pos(ss[i],abc)+1];
Alg:=ss;
end;
Begin
{ Readln(s);
Writeln(Alg(s)); }
Writeln(Alg(Alg('КОМ')));
end.