5. определите информационный объем сообщения «вода», записанного с 256 символьного алфавита (кавычки не учитывать

i=8

Вода= 4 символа

4*8=32

ответ: 32

Объяснение:

//1)
Type
ty=array[1..25] of integer;

Var
n,i:integer;
ar:ty;

procedure sortbutmeh(var ar:ty;n:integer);
Var
i,j,c:integer;
begin
for i:=1 to n-1 do
for j:=i+1 to n do
if ar[i]<ar[j] then
begin
c:=ar[i];
ar[i]:=ar[j];
ar[j]:=c;
end;
end;

begin
randomize;
readln(n);
writeln('First array:');
for i:=1 to n do
begin
ar[i]:=random(100);
write(ar[i]:4);
end;
sortbutmeh(ar,n);
writeln;
writeln('Array after sortbutmeh()');
for i:=1 to n do
write(ar[i]:4);
end.

//2)
Var
n:integer;

procedure ned(n:integer);
begin
case n of 
1:writeln('Понедельник');
2:writeln('Вторник');
3:writeln('Среда');
4:writeln('Четверг');
5:writeln('Пятница');
6:writeln('Суббота');
7:writeln('Воскресенье');
end;
end;

begin
readln(n);
ned(n);
end.

//3)
Var
s:string;

function lengthbutmeh(s:string):integer;
begin
while pos(' ',s)<>0 do
delete(s,pos(' ',s),1);
lengthbutmeh:=length(s);
end;

begin
readln(s);
writeln(lengthbutmeh(s));
end.

ответ: Только не точь в точь, а то за это бан)

#include <iostream>

#include <vector>

#include <cstdint>

using namespace std;  template <class T>

istream& operator>>(istream &in, vector<T> &vec) {   for (auto &it : vec)     in >> it;   return in;

}

template <class T>

ostream& operator<<(ostream &out, vector<T> &vec) {   for (auto &it : vec)     out << it << ' ';   return out;

}  

template <class T, class U>

istream& operator>>(istream &in, pair<T, U> &pair){

  in >> pair.first >> pair.second;   return in;

}  

template <class T, class U>

ostream& operator<<(ostream &out, pair<T, U> &pair) {   out << pair.first << ' ' << pair.second;   return out;

}

signed main(void) {     int32_t n; cin >> n;     vector<vector<int64_t>> a(n, vector<int64_t>(n,-1));      

int64_t x = 0, y = n/2;      

a[x][y] = 1;      

for(int32_t i = 2; i <= n*n; ++i) {        

int _x = x, _y = y;          

if(!x) {              

x =  n-1;          

}else {              

x-=1;        

}          

if(y == n-1){            

y = 0;          

}else {            

y++;          

}          

if(a[x][y] != -1){            

 x= _x, y = _y;              

 while(a[x][y] != -1){                  

 if(x == n-1){                    

  x = 0;                  

  }else{                      

  x++;                  

  }            

 }          

}          

a[x][y] = i;      

}      

for(int32_t i = 0; i < n; ++i){          

cout << a[i] << '\n';      

}      

return 0;  

}

У вас есть 4-ая? Я щас создам вопрос!

Если , оцени)