Срочно!решить в паскаль при помощи цикла while y:= √(1+√4+√9...+√36+√49)

1

Ответы и объяснения

Лучший Ответ!
2013-12-03T21:55:43+04:00

Это Проверенный ответ

×
Проверенные ответы содержат надёжную, заслуживающую доверия информацию, оценённую командой экспертов. На "Знаниях" вы найдёте миллионы ответов, правильность которых подтвердили активные участники сообщества, но Проверенные ответы - это лучшие из лучших.
Var x: integer, y: real
BEGIN
x := 1; y := 0;
while x <= 7 do
begin
y := y+sqrt(x*x);
x := x+1;
end;
y := sqrt(y);
writeln (y);
END.

Но вообще-то по-нормальному 
y = √(1 + 2 + ... + 6 + 7)
И решается намного проще.
вот такое условие было(
у меня сразу выводит значкние так и должно быть?
да, так и должно быть
да запутался чуток