Вычислить сумму Z = 1 + 2 + 3 + ...

Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления закончить, когда значение Z превзойдет данное значение A.

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

Pascal

var A,Z,n:real;

begin

writeln('vvedite A ');

readln(A);

Z:=0;

n:=0;

while Zlt;A then

begin

Z:=Z+n;

n:=n+1;

end;

writeln(Z,'pri n=',n);

readln;

end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт