1 var a, b, c, n, i: integer;
2
3 begin
4 writeln('Vvedite N');
5 readln(n);
6 a :=1; b :=1;
7 for i := 3 to n do begin
8 c := a + b;
9 a := b;
10 b :=c;
11 end;
12 writeln(c);
13 end.
Var s:string;
i:integer;
begin
writeln('Введите строку:');
readln(s);
for i:=1 to length(s) do
if i mod 2 = 0 then s[i]:='!';
writeln(s);
end.
Пример:
Введите строку:
Дана строка состоящая из символов
Д!н! !т!о!а!с!с!о!щ!я!и! !и!в!л!в
Русские называют этот символ собакой..
в Голандии этот символ называют обезьяний хвост...
в Польше, Хорватии, Румынии - обезьяна..
Финляндия- кошкин хвост
Франция - улиточка
Венгрия - гусеничка, червячок
Сербия - лудо а, что озночает чокнутая а
Китай - мышонок..
отблагодари меня, нажав "спасибо" и "лучший ответ"
Ответ: 01
Объяснение:
Задача на условие Фано. Условие формулируется так: ни один код символа не может быть началом другого.
То есть, если используют код для К - 10, то для другой буквы код 100 использовать нельзя, т.к. 10 является началом 100.
В задаче просят подобрать минимально допустимый код для Г. Рассмотрим возможные коды, с учетом занятых:
А = 00
01 - минимально возможный
Б = 11
В = 100
001
и т.д.
Ответ: 01