Koren - Паскаль, Turbo Pascal, PascalABC.NET

aless23 · 20.12.2011, 21:21

прошу прощения..)
Но не могу понять каким образом реализовать данный пример:

S=sqrt(sqrt(10)+sqrt(9)+sqrt(8)...s qrt(2)+sqrt(1));

Thank's)

Mad_Cat · 20.12.2011, 21:24

Код:

var i:integer;s:real;
begin
s:=0;
For i:=10  downto 1 do
s:=s+sqrt(i);
s:=sqrt(s);
writeln(s);
readln;
end.

aless23 · 20.12.2011, 21:31

=))Это необъяснить насколько и сколько раз уже выручаешь меня!!))
Спасибо тебе огромное

20.12.2011, 21:21	#1
aless23 Пользователь Регистрация: 04.04.2011 Сообщений: 19	Koren прошу прощения..) Но не могу понять каким образом реализовать данный пример: S=sqrt(sqrt(10)+sqrt(9)+sqrt(8)...s qrt(2)+sqrt(1)); Thank's)

20.12.2011, 21:24	#2
Mad_Cat Made In USSR! Старожил Регистрация: 01.09.2010 Сообщений: 3,657	Код: `var i:integer;s:real; begin s:=0; For i:=10 downto 1 do s:=s+sqrt(i); s:=sqrt(s); writeln(s); readln; end.` "...В жизни я встречал друзей и врагов.В жизни много всего перевидал.Солнце тело мое жгло, ветер волосы трепал,но я смысла жизни так и не узнал..." (c) Юрий Клинских aka "Хой"

20.12.2011, 21:31	#3
aless23 Пользователь Регистрация: 04.04.2011 Сообщений: 19	=))Это необъяснить насколько и сколько раз уже выручаешь меня!!)) Спасибо тебе огромное