1,5Тб = 15000000000Кб значит 15000000000Кб-1= 14999999999
<span><span>Program f;
</span><span>uses crt;
</span><span>var a:array [1..5] of integer;
</span><span> b,i,h:integer;
</span>begin
<span>clrscr;
</span><span>for i:=1 to 5 do</span><span> begin</span><span> write('vvod ',i,' el mas');
</span><span> readln(a[i]);</span><span>
end;
</span><span>for h:=1 to 25 do
</span><span>for i:=1 to 4 do
</span><span>if (A[i]>A[i+1]) then</span><span>
begin
</span><span> b:=A[i+1];</span><span>
A[i+1]:=A[i];</span><span>
A[i]:=b;
</span><span>end;
</span><span>for i:=1 to 5 do</span><span>write('vivod mas',a[i],' ');
</span><span>readkey;
</span><span>end<span>.</span></span></span>
#include
using namespace std;
int main()
{
int []mas1=new int[9];
int []mas2=new int[9];
for(int i = 0; i<9;i++)
cin>>mas1[i];
for(int i = 0; i<9;i++)
{
cout<=0)
mas2[i]=mas1[i]*2;
else
mas2[i]=0;
}
for(int i=0;i<9;i++)
{
cout<
Составляем и заполняем таблицу
a b c c<15?
3 25 1 да
3 25 2 да
3 28 3 да
3 31 4 да
3 34 5 да
3 37 6 да
3 40 7 да
3 43 8 да
3 47 9 да
3 50 10 да
3 53 11 да
3 57 12 да
3 60 13 да
3 63 14 да
3 67 15 нет
конец работы.
Смотрим, что у нас в ячейке b и даем ответ
Ответ: 67
Pascal
Алгоритм1
var
s : string;
n1,n2 : integer;
i,l : integer;
begin
readln (s);
n1 := 0; n2 := 0;
l := Length(s);
for i := 1 to l do
if (s[i] = ' ') then
if n1 = 0 then
n1 := i
else
n2 := i;
if n2 = 0 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.
Алгоритм2
var
s : string;
n1,n2 : integer;
i,l : integer;
r : boolean;
begin
readln (s);
n1 := 0; n2 := 0;
r := false;
l := Length(s);
i := 1;
While (i<=l) and (not r) do
begin
if s[i] = ' ' then
begin
n1 := i;
r := true;
end;
i := i +1;
end;
r :=false;
i := l;
While (i>0) and (not r) do
begin
if s[i] = ' ' then
begin
n2 := i;
r := true;
end;
i := i -1;
end;
if n2 = n1 then
s := ' '
else
s := copy(s,n1+1,n2-n1-1);
writeln (s);<span>
end.</span></span>