Задача с While. Опции

[pepper]

Помогите решить задачу.
Условие задачи в прикрепленном файле.
Заранее благодарен.

[pepper]

Спасибо klem4.
Но я задачу уже сам решил:

Код

Program N;
Var dx,t,x,l:real;
begin
Writeln ('vvedite dx,t');
readln (dx,t);
x:=1.909;
While x<=6.23 do
begin
l:=sqrt(1+x*x)+t;
x:=x+dx;
Writeln ('l=',l:8:6);
end;
end.

Ну так вот... В следующий раз ты задачу СНАЧАЛА попытайся решить сам, это первое.
А второе - теги CODE не просто так сделаны...

Сообщение отредактировано: volvo - 17.06.2006 14:34