Вопрос Помогите составить программу вычисления на Паскале A=√ 2+√ 4+...√ 50

[лёша]

Помогите составить программу вычисления на Паскале A=√ 2+√ 4+...√ 50

 

[HGNfbn]

//uses crt; var A:real;i:integer; begin //clrscr; while i<=50 do begin A:=A+sqr(i);i:=i+2; end; write(A); //readln; end.

 

[MicroShift]

A:=0;x:=2 while x<=50 do begin A:=A+sqrt(x);x:=x+2 end; writeln(A);

 

[nikit]

var a: real; i: integer; begin a := 0.0; for i := 1 to 25 do a := a + sqrt(i * 2); writeln(a) end.