Задание:
Срочно! Решить в паскаль при помощи цикла while y: =√ (1+√4+√9… +√36+√49)
Решение:
Var x: integer, y: realBEGINx: =1; y: =0; while x <= 7 dobeginy: =y+sqrt (x*x); x: =x+1; end; y: =sqrt (y); writeln (y); END. Но вообще-то по-нормальному y=√ (1+2+… +6+7) И решается намного проще.
Знаете другой ответ?