Помогите с Паскалем.var w:integerA,s:realbegins:=0

Помогите с Паскалем.

var w:integer
A,s:real
begin
s:=0 w:=1;
s:=s=1/w
w:=w+1+s
write(n/w)
w=5
end.
здесь нужно поправить ошибку.

Задать свой вопрос
1 ответ

Ужс.

var w,s:real;

begin

   s:=0;

   w:=1;

   s:=s+1/w;

   w:=w+1+s;

   write((s/w):8:3);

end.

Ангелина Селянчук
Спасибо!!!
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт