Опубликовано 08.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

Pascal

var A,Z,n:real;

begin

writeln(vvedite A );

readln(A);

Z:=0;

n:=0;

while Z

begin

Z:=Z+n;

n:=n+1;

end;

writeln(Z,pri n=,n);

readln;

end.