Премного извиняюсь, неправильно прочел условие задачи
const h=0.7;
var a, b, x, y: real;
begin
writeln(' [-1,8] s shagom 0.7 ');
a:=-1;
b:=8;
writeln('--------------------------');
writeln('| X | Y |');
writeln('--------------------------');
x:= a;
while x<= b do begin
y:=(x*x*x)-sqr(3*x)+9;
writeln('|', x:9:2, ' |' , y:9:2, ' |');
x:= x+h;
end;
writeln('--------------------------');
end.
1800 байт * 8 = 14 400 бит
14 400 бит = 14 400 бит
ответ: за одну секунду
Var
t,m:string;
i:integer;
begin
readln(t);
m:='нки';
for i:=1 to length(t) do
begin
if ((t[i]=' ') or (t[i]=',') or (t[i]='.'))
and((copy(t,i-4,4)='онок') or (copy(t,i-4,4)='енок'))
then
begin
delete(t,i-3,3);
insert(m,t,i-3);
end;
end;
writeln(t)
<span>end.</span>