Найти сумму 1 + 1/3 + 1/5 +...(N слагаемых).

qbasic:

input "число а=", a 

x = a 

do

  x = x ^ 2 + 1

  n = n + 1

loop until x > = 1000000

print a, x, n

max(n) = 7, при a = 0

сначала нужно переправить козу, затем вернуться за капустой, переправить капусту и забрать козу. потом переправить волка, ну а потом уже козу.

program divisors;

var

n,i: integer;

begin

readln(n);

for i: =n downto 1 do if n mod i = 0 then write(i,' ');

end.

1. по буквам

2. по слогам

3. по согласным

4. произношение на оборот

5. по 1ой букве в алфавите. н-р весна в-3-я буква, р-18-я в алфавите