Левый берег Правый берег Солдат 2 мальчика
Солдат, мальчик Мальчик
Мальчик Солдат, Мальчик
2 мальчика Солдат
1) 21<span>=2, поэтому на первую букву приходится 1 бит информации </span>2) 25=32, следовательно на след. буквы приходится по 5 бит информации <span>3) 7∙5 бит= 35 бит- содержат 7 букв </span><span>4) 1 бит + 35 бит = 36 бит : 8 =4,5 байт- содержит 1 слово </span><span> </span><span>Ответ: 4,5 байт</span>
4-ое задание про "лет":
program zd;
var
a:1..40;
begin
writeln('Введите количество лет');
readln(a);
case a of
1,21,31: writeln('мне', a , 'год');
5..20, 25..30, 35..40: writeln('мне', a, 'лет');
2..4, 22..24, 32..34: writeln('мне',a, 'года');
end;
end.
Нашёл то, что было в тетрадке)
Var
a,b:integer;
Begin
Writeln('Введите а и b через пробел');
Readln(a,b);
Writeln(sqrt(a*b));
End.
const
N = 50;
var
a:array[1..N] of integer;
b:array[1..N] of real;
i:integer;
begin
randomize;
for i := 1 to N do
begin
a[i]:=100-random(201);
b[i]:=sqr(a[i])/(i+a[i]);
writeln('a[',i,']=',a[i],'; b[',i,']=',b[i]:5:3);
end;
end.