Var i,s: integer;
<span>begin
</span><span> i:=1; s:=0;
</span><span> repeat
</span><span> s:=s+i;
</span><span> i:=i*2;
</span><span> until i>256;
</span><span> writeln('s = ',s);
</span><span>end.
второй вариант:
var s: integer;
begin
</span> s:=1 shl 9 - 1;
<span> writeln('s = ',s);
</span><span>end.
</span><span>
s = 511
</span>
Program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
write ('Введите количество дюймов: ');
readln(d);
s := d*m;
writeln (d, ' дюймов = ', s, ' сантиметров')
end.
Упрощенный вариант:
program inch_sm;
var d, s: real;
const m = 2.5: real;
begin
readln(d);
s := d*m;
writeln (s)
end.
Формула для вычисления количества информации: 
. Вычислим объем информации в письме племени Мульти. К = 17, так как используется 17-символьный алфавит. N = 100, так как в письме 100 символов. Получается 
Тогда, раз 
, то I = 500 бит.
Вычислим объем информации в пиьме племени Пульти. 
бит. Значит, в письме племени Мульти содержится в два раза больше информации.
Var s,t:string; k,i:integer;
begin
readln(s);
t:='шина';
k:=0;
for i:=1 to length(t) do
if pos(t[i],s)>0 then k:=k+1;
if k=length(t) then writeln('YES')
else writeln('NO');
end.
Пример:
шикарный
YES
11. Дано:
Колич. символов алфавита (N)=8
Колич. символов сообщения=65
i=3(для подсчета количества информаций для одного символа)
Найти-Количество информации(бит)-?
Формула: N=2^i(Два в степени i)*65
Решение: N=2^3*65=8*65=520 бит
Ответ: 520 бит
1. Имя/Место 1 2 3 4 5
Алексей +
Борис +
Евгений +
Михаил +
Олег +
Ответ: Фотографий Алексея, Евгения и Михаила должен сделать фотограф
