Текстовая информация (вроде)
Var
a,b:integer;
Begin
Writeln('Введите а и b через пробел');
Readln(a,b);
Writeln(sqrt(a*b));
End.
<span>const
D: real = 10; // число км в день
p: real = 1.12; // %
M: integer = 30;// число дней в месяце
N: integer = 25;// макс дистанция в условии задачи
var c: integer;
s, x: real;
begin
x := D;
for c := 1 to </span>M<span> do begin
s := s + x;
x := x * p;
end;
writeln('в месяц пробегает: ', s);
x := D; c := 0;
while (x < N) do begin
c := c + 1;
x := x * p;
end;
writeln('Нужно ', c, ' дней');
end.
</span>
Var
x,y:real;
begin
writeln ('Введите координаты точки (x,y)');
readln (x,y);
if (x=0) and (y=0) then writeln ('0')
else if (x=0) or (y=0) then writeln ('1')
else writeln ('2');
end.
32=2*5(2 в степени 5).Для представления одной буквы потребуется 5 битов.Одной буквой можно кодировать 5 бит.Ответ:5 бит