1.дано целое k> 2. напечатать все простые числа из диапазона [2,k] 2.найти первое число фибоначчи, большее заданного n (n> 1).

Var a, b, k, j: integer; begin       readln(j);       a : = 1;       b : = 1;       while (j > a) do       begin           k : = b;           b : = b + a;           a : = k;       end;       writeln(a); end.классно, что можно заставить бездушную машину работать на себя: ))

1)tut kazhdii simvol zanimaet 1 bait(tak imeem bukvi alfavita( soobshenie s uchetom probela zanimaet 10 bait.

2)tut kazhdii simvol zanimaet 1 bait(tak ispol'zovani znaki + i - pmimo 0 i 1);

  soobshenie zanimaet 11 bait.

3)analogichno 15 bait.

1)

германия берлин

греция афины

испания мадрид

польша варшава

франция париж

 

2)

греция афины

германия берлин

польша варшава

испания мадрид

франция париж