625 КБ = 5120000 бит
5120000/ <span>512000</span> = 10 сек,а до этого заняло бы 40 сек, поэтому 40-10=30 секунд - разница. Отв А
Program DemoSet;
uses crt;
var s:string;
i,k:integer;
begin
k:=0;
clrscr;
write('Введите произвольную строку =>');
readln(s);
writeln('Строка результат');
for i:=1 to length(s) do
begin
if not(s[i] in [1234567890] )then
begin
if s[i] in ['0'..'9'] then inc(k);
write(s[i])
end;
end;
writeln;
writeln('Количество цифр в строке ',k);
readln
end
1)
var
i,k:integer;
a:array [1..14] of integer;
begin
k:=0;
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
if a[i] mod 2=0 then k:=i;
end;
if k>0 then
begin
for i:=k to 13 do a[i]:=a[i]+1;
a[14]:=0;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
2)
var
i,k:integer;
a:array [1..14] of integer;
begin
for i:=1 to 14 do
begin
a[i]:=random(46)-15;
write(a[i]:3);
end;
for i:=1 to 7 do
begin
k:=a[i];
a[i]:=a[i+7];
a[i+7]:=k;
end;
writeln;
for i:=1 to 14 do write(a[i]:3);
end.
Ax=-b
x=-b/a
подставляй данные и решай по формуле см. выше