Вопрос Доделать программу на Pascal.Постусловие. i := 1; repeat sum := sum + (i*2)/sqrt((i+1)*2); i := i+1;

[baltozar]

Доделать программу на Pascal.Постусловие. i := 1; repeat sum := sum + (i*2)/sqrt((i+1)*2); i := i+1; until (i = 20);

 

[baner]

Вот результат://otvet.imgsmail.ru/download/34152442_6985f98a2c742d3d1443026835148dd3_800.jpg

 

[Николай121212]

program Zadacha_7; var i:integer; sum:real; begin i:=1; sum:=0; repeat sum:=sum+i*2/sqrt(2*i+2); i:=i+1 until i=20; writeln(sum); end.