Другие языки программирования и технологии

Помогите решить задачку по программированию в Паскале!

вычислить сумму : sqrt(1+sqrt(2+sqrt(3+sqrt(4+..sqrt(50)))) за полный ответ выберу лучший!
НК
Нурлан Капаров
2 653
>>за полный ответ выберу лучший!

ахахах! да уж, ты умеешь мотивировать...
*i Love Kgz_Stan* ***crazy***boy***
*i Love Kgz_Stan* ***crazy***boy***
3 103
Лучший ответ
Михайлов Алексей Вы извините, я тут у вас код вставлю.
program sqroot;
uses
crt;
var
Summ : real;
i : integer;
begin
i:=50;
Summ:=i;
for i:=i downto 1 do
begin
Summ:=sqrt(Summ)+(i-1);
end;
writeln(Summ:10:15);
readln();
end.
Пользуйся на здоровье:
program p;
begin
writeln( 'sqrt( 1 + sqrt( 2 + sqrt( 3 + sqrt( 4 + sqrt( 5 + sqrt( 6 + sqrt( 7 +
sqrt( 8 + sqrt( 9 + sqrt( 10 + sqrt( 11 + sqrt( 12 + sqrt( 13 + sqrt( 14 + sqrt( 15 +
sqrt( 16 + sqrt( 17 + sqrt( 18 + sqrt( 19 + sqrt( 20 + sqrt( 21 + sqrt( 22 + sqrt( 23 +
sqrt( 24 + sqrt( 25 + sqrt( 26 + sqrt( 27 + sqrt( 28 + sqrt( 29 + sqrt( 30 + sqrt( 31 +
sqrt( 32 + sqrt( 33 + sqrt( 34 + sqrt( 35 + sqrt( 36 + sqrt( 37 + sqrt( 38 + sqrt( 39 +
sqrt( 40 + sqrt( 41 + sqrt( 42 + sqrt( 43 + sqrt( 44 + sqrt( 45 + sqrt( 46 + sqrt( 47 +
sqrt( 48 + sqrt( 49 + sqrt( 50)))))))))))))))))))))))))))))))))))))))))))))))))) = ',
sqrt( 1 + sqrt( 2 + sqrt( 3 + sqrt( 4 + sqrt( 5 + sqrt( 6 + sqrt( 7 +
sqrt( 8 + sqrt( 9 + sqrt( 10 + sqrt( 11 + sqrt( 12 + sqrt( 13 + sqrt( 14 + sqrt( 15 +
sqrt( 16 + sqrt( 17 + sqrt( 18 + sqrt( 19 + sqrt( 20 + sqrt( 21 + sqrt( 22 + sqrt( 23 +
sqrt( 24 + sqrt( 25 + sqrt( 26 + sqrt( 27 + sqrt( 28 + sqrt( 29 + sqrt( 30 + sqrt( 31 +
sqrt( 32 + sqrt( 33 + sqrt( 34 + sqrt( 35 + sqrt( 36 + sqrt( 37 + sqrt( 38 + sqrt( 39 +
sqrt( 40 + sqrt( 41 + sqrt( 42 + sqrt( 43 + sqrt( 44 + sqrt( 45 + sqrt( 46 + sqrt( 47 +
sqrt( 48 + sqrt( 49 + sqrt( 50))))))))))))))))))))))))))))))))))))))))))))))))))
);
end.
МС
Маким Соколов
34 701
Нурлан Капаров ойёййй))) Вам не лень писат было? самое прикольное то, что не так надо) надо с program, var...

Похожие вопросы