Есть легенда, что когда-то, когда создавался APPLE, человек, который был организатором, поставил условие: <span>Я хочу, чобы до завтра вы придумали название для нашей компании, а иначе я назову её в честь своего любимого фрукта - яблока.
На следующий день, хорошего названия не последовало, вот так собственно и появилось название APPLE, а соответственно и эмблема.</span>
Ответ:
Если не было информации то человек и другие живые существа ничего не узнали о своем мире , а также человек перестал быть любопытным и т.д
Запишим коды каждой буквы:А = 1000Б = 1001В = 1010Г = 1011 Запишем последовательность БГАВ = 1001101110001010 Чтобы перевести в восьмеричный код из двоичного, следует начиная с конца разбить код на тройки и каждую уже перевести. Получится:001 001 101 110 001 010 (впереди числа, если не хватаем чисел, можно дописывать 0. Они не дают результата, просто удобны для записи). Переводим кажое число путем развернутой )формы записи и счета: <span>Ответ: 115612</span>
Var i, pr: Integer; n: String;
Begin
readln(n);
pr := 0;
for i := 1 to length(n) do
if n[i] = ',' then pr := 1;
if pr = 1 then write('Такой символ есть') else write('Такого символа нету');
End.