Var
i,sum:Integer;
Begin
for i:=5 to 101 do
begin
if (i mod 2 <> 0) sum:=sum+i;
end;
Writeln(sum);
end.
Всего используется символов = 12 букв + 10 цифр = 22 символа
2^x>=22, x = 5 (бит)
5 бит используется для кодирования 1 символа
1 номер = 5(бит) * 6(символов) = 30 (бит) / 8 = 3,75 (байт)
Вычисляем по формуле n^i отсюда следует, если информация несет 4 бита информации то n^4=270
4^4<n^4<5^4
Ответ: юношей 4
№1
var a, b, c: integer;
begin
read(a, b, c);
if((a = b) or (b = c) or (c = a)) then
write('Треугольник равнобедренный')
else
write('Треугольник неравнобедренный');
end.
БЛОКСХЕМА:
начало
ввод сторон(a, b, c)
если a = b или b = c или с = a, то
вывести: 'треугольник равнобедренный'
иначе вывести: 'треугольник неравнобедренный'
конец
№2
var n, s, i: integer;
begin
s := 0;
read(n);
for i := 20 to n do begin
if (i mod 2 <> 0) then s := s + i;
end;
write(s);
end.
БЛОКСХЕМА:
начало
s := 0, i := 20
ввод числа n
пока i не равно n
если i - нечётное, то
прибавить к s
вывести s
конец