Формула Шеннона
I = log2 N , где I количество информации,
Обозначим количество полученных четверок - Ч, количество троек – Т, двоек– Д.
Т+Д=22
По условию задачи количество информации, содержащееся в сообщении «Абитуриент Иванов не провалился на экзамене», равно log2 3 бит.
Информационный объем сообщения «Абитуриент Сидоров получил тройку» равен двум битам.
.
Имеем систему из трех уравнений с тремя неизвестными.
Ч=2, Т=6, Д=22-6=16,
Всего 24.
Ответ: Количество абитуриентов, сдавших информатику, равно 24.
#include <iostream>
using namespace std;
int main() {
int n, s = 0;
cin >> n;
int a[n];
for(int i = 0; i < n; i++) cin >> a[i];
for(int i = 0; i < n; s+=(a[i]*a[i]), i++);
cout << s << endl;
}
<span>a:= 15; переменная а получает значение 15 (обозначим это так: 15 ⇒ a)
b:= (a/3)*a; (15/3)*15 = 5*15 = 75 ⇒ b
а=а-10; 15-10 = 5 ⇒ a
с:= a+b; 5+75 = 80 ⇒ c
b:= c/(2*a);</span> 80/(2*5) = 80/10 = 8 ⇒ b
Ответ: 8
<em>// PascalABC.NET 3.3, сборка 1541 от 29.09.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n =');
Writeln(n*'Ф ')
end.
<u>Пример</u>
n = 7
Ф Ф Ф Ф Ф Ф Ф
Program maximal;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,max:integer;
begin
readln(N);
max:=0;
for i:=1 to N do
begin
read(a[i]);
if max<a[i] then
max:=a[i];
end;
write(max);
end.
////////
2) Program B;
const
nmax=100;
var
a:array[1..nmax] of integer;
N,i,z:integer;
begin
readln(N);
z:=0;
for i:=1 to N do
begin
read(a[i]);
if a[i]>0 then
write(a[i],' ');
if a[i]=0 then
z:=z+1;
end;
writeln();
for i:=1 to N do
begin
if a[i]<0 then
write(a[i],' ');
end;
writeln();
for i:=1 to z do
write('0',' ')
end.