1)составить программу которая находит наименьшую сумму ряда 3+4+5+6+ превышающую число 15. 2) составить программу, которая находит наименьшую сумму ряда 3+6+12+24+ превышающую введённое число.
Использование русских букв в названии переменной (с) это очень сильно, а ещё кавычки не `, а ' должны быть. Код можно еще улучшить избавившись от большого кол-ва проверок if т. к. это замедляет компиляцию
Var a, b, c:integer;
Begin
Readln(a,b,c);
If (a>=b+c) or (b>=a+c) or (c>= a+b) then Writeln('Нет' )
Задача сформулирована не корректно, т.к. недостаточно информации о формировании сообщения.
В случае если мы передаём значение 15 то сообщение будет размером 1111 бит.
В худшем случае минимальное сообщение будет иметь размерность 100000 бит
В лучшем случае сообщение может быть представлено как поток 2битных сообщений. Максимальная длина потока будет равна 32 сообщениям. В случае оптимистичного прогноза успех может произойти на первом сообщении. Таким образом мы считаем номер в потоке и значение бита. Если значение == 1 то в этом вагоне находятся друзья.
Var a, b, c:integer;
Begin
Readln(a,b,c);
If a>=b+c then Writeln('Нет' )
Else if b>=a+c then Writeln('Нет')
Else if c>=a+b then Writeln('Нет')
Else Writeln('Да');
End.
Использование русских букв в названии переменной (с) это очень сильно, а ещё кавычки не `, а ' должны быть. Код можно еще улучшить избавившись от большого кол-ва проверок if т. к. это замедляет компиляцию
Var a, b, c:integer;
Begin
Readln(a,b,c);
If (a>=b+c) or (b>=a+c) or (c>= a+b) then Writeln('Нет' )
Else Writeln('Да');
End.
В случае если мы передаём значение 15 то сообщение будет размером 1111 бит.
В худшем случае минимальное сообщение будет иметь размерность 100000 бит
В лучшем случае сообщение может быть представлено как поток 2битных сообщений. Максимальная длина потока будет равна 32 сообщениям. В случае оптимистичного прогноза успех может произойти на первом сообщении. Таким образом мы считаем номер в потоке и значение бита. Если значение == 1 то в этом вагоне находятся друзья.