Var s,ss,s2:string;
i:longint;
Begin
write('String: ');
readln(s);
write('Substring: ');
readln(ss);
Write('Replace with: ');
readln(s2);
i:=pos(ss,s);
delete(s,i,length(ss));
insert(s2,s,i);
writeln(s);
end.
В одном гигабайте 1024 килобайтов,в одном килобайте 1024 байтов.
Во время выполнения алгоритма сменяются следующие значения:
a=5 b=4
b=80
a=25
Ответ: a=25
Var n,s,i:integer;
begin
write('N='); readln(n);
s:=0;
for i:=1 to n do s:=s+2*i-1;
writeln('S=',s,' N^2=',n*n);
<span>end.</span>