составить блок-схему и написать программу : сформировать массив из 10 чисел все положительные числа переписать в другой массив

ответ:var

   n, i: word;

   sum: real;

 

begin

 

   write ('n = '); readln (n);

 

   sum := 0;

 

   for i := 1 to n do

       sum := sum + 1/(i*i);

 

   writeln (sum:6:5);

 

readln

end.

gene  16/06/2017

a(a-1)(a-2)(a-3)...(a-n)

var  

   a,n,i: integer;

   mult: longint;

begin

   write('Введите a: ');

   readln(a);

   write('Введите n: ');

   readln(n);

   mult := a;

   for i:=1 to n do

       mult := mult * (a - i);

   writeln(mult);

end.

1/a + 1/(a+1)+...+1/(a+n)

var  

   a,n,i: integer;

   sum: real;

begin

   write('Введите a: ');

   readln(a);

   write('Введите n: ');

   readln(n);

   sum := 0;

   for i:=0 to n do

       sum := sum + 1/(a + i);

   writeln(sum:5:2);

end.

Объяснение:

Можно декодировать вручную: надо написать вместо каждой буквы - букву, которая в алфавите стоит перед ней (для буквы а - букву я) - это не сложно, например:
о -> н (в алфавите ...мнопр...)
б -> а (в алфавите ...яабвг...)
и т.д. 
Можно с интернет-калькулятора (гyглить по фразе "шифр Цезаря"): ввести исходную фразу и посмотреть, что получится (сдвиг в шифре равен -1 или, что тоже самое, 32)
Наконец, можно написать программу, которая всё сделает для вас.

В любом случае,
об оёу тфеб оёу = на нет суда нет
лпоёч - еёмф гёоёч = конец - делу венец