№5 ответ: 1 байт (весь алфавит 128 байт)
Const
n=30;
var
i,k,m:integer;
begin
Randomize;
Writeln('Заданы мощности:');
k:=0;
for i:=1 to n do
begin
m:=Random(100)+50;
Write(m:4);
if m>100 then k:=k+1
end;
Writeln;
Writeln('Количество машин с мощностью больше 100 л.с. равно ',k)
end.
<em><u>Тестовое решение:</u></em>
Заданы мощности:
147 126 69 149 121 112 69 138 144 135 148 133 86 101 109 82 60 126 80 96 66 113 77 86 147 100 131 146 84 70
Количество машин с мощностью больше 100 л.с. равно 17
<em>Ответ:</em>
<em>0001 в шестнадцатеричной системе - </em><em>1</em>
<em>Удачи))</em>
<em></em>
<em />
<span>Вот как он устроен.
Для начала каждой цифре от 1 до 9 плюс 0 придаются определенные буквенные значения, некоторые люди видят глубокий, почти мистический смысл в соотношении букв и цифр. Другие утверждают, что в этом нет вообще никакого смысла и эти соотношения абсолютно произвольны. Мы занимаем промежуточную позицию. Если вы считаете, что вы видите смысл в буквенных значениях цифр, это замечательно. Это может помочь вам лучше запомнить эти соотношения. Если вы не видите никакой связи, это тоже неплохо. </span><span>1 = т или д
2 = н
4 = ч или р
5 = л
6 = ш, щ или ж
7 = г или к
8 = в или ф
9 = б или п
0 = с или з</span>
Program zadanie1 (input, output);
var a, b:integer;
s:real;
begin
a:=1;
s:=0;
b:=0;
while a <> 0 do
begin
read (a);
s:=s+a;
b:=b+1;
end;
s:=s/(b-1);
writeln (s);
end.
-------------------------------------------------------------
program zadanie2 (input, output);
var a, p, b, c, n, s:integer;
begin
a:=1;
b:=0;
c:=0;
s:=0;
read (n);
repeat
c:=a+b;
b:=a;
a:=c;
s:=s+c;
if s < n then
p:=s;
until s > n;
writeln (p);
end.
--------------------------------------------------
program zadanie3 (input, output);
var n, I:integer;
a, b:real;
begin
read (n);
a:=0;
for I:=0 to n do
begin
a:=exp(I*ln(2));
if a < n then
b:=a;
end;
writeln (b);
end.
