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

Question

Кирилл

21 декабря, 20:14

+5

Ответы (1)

Знаете ответ на вопрос?

Антон · Answer 1

var a, z, n: integer;

begin

n:=1;

z:=0;

readln (a) ;

repeat

z:=z+n;

n:=n+1

until z>a;

writeln (z) ;

end.

Вот программа