Question

пожалуйста напишите задачу на паскале которая вычислит эти корни, к каждому прибавляется 2 и так до корня из 100

Answer 1

Ответ:

var i: Integer;  S:Real;

begin

S:=0;

i:=2;

while i< 100 do

    begin

         S:=sqrt(S+sqrt(i));

         i:=i+2;

    end;

write ('S=',S);

end.

Объяснение: