50. 10 01 10 00 11, следовательно наибольшее число подряд идуих нулей - 3.
51. 3) АИНГЧАН
55-56. на фотографиях
Будем рассуждать:
Заяц, Волк и Лиса не были последними. Волк и Ёж не были первыми. Т.е. остаётся два варианта: Заяц и Лиса. Судя по этому можно определить, что Лиса была первой, т.к. Заяц не мог (по моему мнению) ПРИБЕЖАТЬ первым, потому, что он прыгает, а это (по моему мнению) не считается. Поэтому Лиса была первой.
Var
i, k, n1, n2: integer;
begin
n1 := 0;
n2 := 0;
{предполагается, что нумерация домов начинается с 1}
writeln('Вводите количество жителей в порядке возрастания номеров домов');
writeln('Окончание ввода - по отрицательному значению');
i := 1;
repeat
read(k);
if k > 0 then
begin
if i mod 2 = 0 then n2 := n2 + k
else n1 := n1 + k;
i := i + 1
end
until k < 0;
write(#13#10, 'Большее количество людей проживает на ');
if n1 > n2 then writeln('левой стороне улицы.')
else writeln('правой стороне улицы.')
end.
Тестовое решение:
Вводите количество жителей в порядке возрастания номеров домов
Окончание ввода - по отрицательному значению
13 56 25 31 98 35 72 64 -1
Большее количество людей проживает на левой стороне улицы.
Var a: byte;
begin
writeln('Введите номер месяца:');
readln(a);
case a of
1, 2, 12: writeln('Зима');
3..5: writeln('Весна');
6..8: writeln('Лето');
9..11: writeln('Осень')
else writeln('Ошибка');
end;
end.
Var a:real;BeginWrite('Сторона равностороннего треугольника: ');ReadLn(a);WriteLn('P = ',a*3);WriteLn('S = ',a*a);End.