1) var ar:array of integer;
<span>n,i:integer;
procedure writing(ar:array of integer; var i,n:integer);
begin;
while i<=n do
begin;
write(ar[i]:4);
i:=i+2;
end;
end;
begin;
readln(n);
writeln('Array:');
SetLength(ar,n+1);
for i:=1 to n do
readln(ar[i]);
i:=1;
writeln('Result:');
writing(ar,i,n);
<span>end.
</span>2) </span>var ar:array[1..10] of integer;
n,i:integer;
sr,otk,otkm:real;
begin;
randomize;
otkm:=-1;
writeln('Array:');
for i:=1 to 10 do
begin;
ar[i]:=random(10);
sr:=sr+ar[i];
write(ar[i]:4);
end;
sr:=sr/10;
for i:=1 to 10 do
begin;
otk:=ar[i]-sr;
if otkm<otk then otkm:=otk;
end;
writeln;
writeln('Среднее арифметическое:',sr);
write('Максимальное отклонение:',otkm);
end.
5,5Мбайт=5,5*1024Кбайт=5,5*1024*1024байт=5767168байт
7Гбайт=7*1024Мбайт=7*1024*1024Кбайт=7340032Кбайт
3Байта=3*8бит=24бит
1/2Мбайт=1/2*1024Кбайт=1/2*1024*1024байт=524288байт
//Microsoft (R) C/C++ Optimizing Compiler Version 19.00.23506 for x64
#include <iostream>
#include <fstream>
#include <string>
using namespace std;
int main()
{
fstream f("F1.txt");
size_t max_size;
string s, max_word, word;
while ( getline(f, s) ) {
istringstream is(s);
max_size = 0;
while (is >> word) {
if (max_size < word.size()) {
max_size = word.size();
max_word = word;
} else if (max_size == word.size()) {
max_word += " = ";
max_word += word;
}
}
cout << max_size << ' ' << max_word << endl;
}
}
_____________________________
Пример:
asfasfafs sdf sdg xcz
zxcvxcv sdggsd
asdgsdg
sgdgsd sdagsdg
gsd sdg sdg
sdggg sdg sh
Ответ:
9 asfasfafs
7 zxcvxcv
7 asdgsdg
7 sdagsdg
3 gsd = sdg = sdg
5 sdggg
Минимальная система шестеричная, т.к. наибольшая цифра во всех числах - 5.
Ответ В, т.к.
425(6) = 161(10)
221(6) = 85(10)
101(6) = 37(10)
123(6) = 51(10)