составить блок-схему и программу:
Программы циклической структуры
Для заданного значения X, вычислить сумму S.

Ответ:

Объяснение:

var

 x, s:real;

 i:integer;

begin

 readln(x);

 s:=0;

 for i:=3 to 18 do

   s:=s + (sqrt(27)/(i*x));

 writeln(s);

 readln;

end.