Информационное сообщение объемом 1 кбайт состоит из 4096 символов. какой информационный вес символа используемого алфавита? сколько символов содержит алфавит, с которого записано это сообщение? !
Var ar:array[1..s] of integer; n,m,i:integer; begin writeln('N'); readln(n); writeln('M'); readln(m); writeln('Array:'); for i:=1 to s do readln(ar[i]); writeln('First array:'); for i:=1 to s do begin write(ar[i]:4); if ar[i] div n<>0 then ar[i]:=ar[i]+m; end; writeln; writeln('Final array:'); for i:=1 to s do write(ar[i]:4); end.
Пример ввода: 3 3 1 2 3 4 5 Пример вывода: First array: 1 2 3 4 5 Final array: 1 2 6 7 8
#include <iostream>
using namespace std;
int min(int v, int w){
if (v > w){
return w;
}else{
return v;
}}
int minimum(int a, int b, int c){
int min1, min2;
min1 = min(a,b);
min2 = min(min1,c);
return min2;
}
int max(int v, int w){
if (v > w){
return v;
}else{
return w;
}}
int maximum(int a, int b, int c){
int max1, max2;
max1 = max(a,b);
max2 = max(max1,c);
return max2;
}
int main() {
int a, b , c , d,min3,max3,e;
cin >> a >> b >> c;
min3 = minimum( a, b, c);
max3 = maximum( a, b, c);
e = (max3 - min3 )/2;
d = (a + b + c)/3;
cout << d + e;
}
Объяснение:
решение на с++
Const
s=5;
Var
ar:array[1..s] of integer;
n,m,i:integer;
begin
writeln('N');
readln(n);
writeln('M');
readln(m);
writeln('Array:');
for i:=1 to s do
readln(ar[i]);
writeln('First array:');
for i:=1 to s do
begin
write(ar[i]:4);
if ar[i] div n<>0 then ar[i]:=ar[i]+m;
end;
writeln;
writeln('Final array:');
for i:=1 to s do
write(ar[i]:4);
end.
Пример ввода:
3
3
1
2
3
4
5
Пример вывода:
First array:
1 2 3 4 5
Final array:
1 2 6 7 8
//Блок-схема во вложении