Var
s,i,k:integer;
m:array[1..20]of integer;
begin
write('Введите k: ');
readln(k);
writeln('Массив:');
for i:=1 to 20 do
begin
m[i]:=random(20);
write(m[i],' ');
if m[i] mod k=0 then s:=s+m[i];
end;
writeln;
writeln('Ответ: ',s);
<span>end.</span>
Вес равен одному байту
ответ а
Язык C++.
#include <iostream>
#include <cmath>
const double pi = 3.1415;
using namespace std;
int main() {
double r;
cout << "Введите радиус: " << endl;
cin >> r;
cout << "Длина окружности = " << 2*pi*r << endl << "Площадь = " << pi*pow(r,2) << endl;
}
Результат: ТМРРО
Const abc = 'АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯА';
Var s : String;
Function Alg(ss : String) : String;
Var i : Integer;
Begin
If Odd(Length(ss)) then Insert(ss[(Length(ss) div 2)+1],ss,(Length(ss) div 2)+1) else ss:='С'+ss;
For i:=1 to Length(ss) do If Pos(ss[i],abc)>0 then ss[i]:=abc[Pos(ss[i],abc)+1];
Alg:=ss;
end;
Begin
{ Readln(s);
Writeln(Alg(s)); }
Writeln(Alg(Alg('КОМ')));
end.
N=16
N=2^i
Отсюда следует, что i=4бит
i=4
k=1000
I=k*I
I=1000*4=4000бит
4000/8=500байт