Вычислить сумму Z = 1 + 2 + 3 + .... Вычисления прекратить, когда значение Z превысит заданное значение A.
Вычислить сумму Z = 1 + 2 + 3 + .... Вычисления прекратить, когда значение Z превысит заданное значение A.
Гость
Ответ(ы) на вопрос:
Гость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. Вот программа
Не нашли ответ?
Похожие вопросы