Количество информации в одном символе = log(2)32=5 бит
230 байт = 230*8 бит
Количество символов в сообщении = (230*8)/5 = 368
В программе для создания коллажей.
Блок-схема - в прилагаемом файле.
Программа:
var n,r,a,b,k,x,y,i:integer;
begin
readln(n,r,a,b);
k:=0;
for i:=1 to n do
begin
readln(x,y);
if sqr(x-a)+sqr(y-b)<r*r then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
3 4 1 1
2 2
-2 -3
0 0
k = 2
Const n=5;
var
a:array [1..n] of integer;
i,k:integer;
begin
for i:= 1 to n do
a[i]:= Random(-10,10);
writeln(a);
for i:=1 to n do
if a[i] < 0 then k:=k+1;
writeln('Отрицательных элементов: ',k)
end.
Пример:
[0,1,-1,-4,-8]
Отрицательных элементов: 3
Const
n = 10;
var
i, s: integer;
a: array[1..n] of integer;
begin
Write('Введите оценки через пробел ');
s := 0;
for i := 1 to n do
begin
Read(a[i]);
s := s + a[i]
end;
Writeln('Средний балл равен ', s / 10:0:2)
end.
Тестовое решение:
Введите оценки через пробел 4 5 3 4 4 5 3 5 5 4
Средний балл равен 4.20
var
k, n: longint;
i, m, s: integer;
begin
Write('Введите натуральное число '); Readln(n);
m := n mod 100000;
k := 10000;
for i := 1 to 4 do
begin
s := s + (m div k);
m:=m mod k;
k := k div 10
end;
s:=s+m;
Writeln('Сумма последних пяти цифр числа равна ', s)
end.
Тестовое решение:
Введите натуральное число 123456789
Сумма последних пяти цифр числа равна 35