Uses crt;
const
n=50;
var
a:array[1..n] of integer;
i,s:integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=150+random(50);
if a[i]>=170 then s:=s+1
end;
writeln(s);
end.
Памятник представляет собой копию клавиатуры из бетона в масштабе 30:1. Состоит из 104 клавиш, сделанных из бетона весом от 100 до 500 кг, расположенных в раскладке QWERTY. Клавиши расположены в углублениях с интервалом 15 см. Общая площадь проекта 16 × 4 м. Поверхность клавиш плоская с рельефными обозначениями алфавита и функциональных символов, размещенных в том же порядке, что и на обычной компьютерной клавиатуре.
В июле 2016 года на клавише End установлена мемориальная доска в честь Евгения Зорина
Объем файла : С=t*b*N, где С- Объем звукозаписи в байтах, t - время в сек., b- разрядность в байтах, N - частота дискретизации в Гц или 1/сек.
С= 60*(16/8)*44000 = 5280000 байт = 5156 КБайт = 5,03 Мбайт
Продолжительность звукозаписи из той же формулы:
t=C/b*N C- Объем диска в байтах. b- разрядность в байтах, t- время в сек.
t=(700*1024*1024)/(16/8)*44000= 8340,94 сек = 139 мин.
Сообщение - рубикон перейден, сдвиг - 27
Для расшифровки можно использовать программу:
const st='ХШЖНПУТ ФКХКОЙКТ';
var i,j:integer; s:string;
begin
for i:=25 to 30 do
begin
s:='';
for j:=1 to length(st) do
if st[j]<>' ' then s:=s+chr(ord(st[j])+i) else s:=s+' ';
writeln(s);
end;
end.