Вычислить сумму S = 1 + 2 + 3 + …. . Вычисления прекратить, - вопрос №20356915123 от ДвоечникТочно 05.03.2022 10:20

Question

Информатика: Вычислить сумму S = 1 + 2 + 3 + …. . Вычисления прекратить, если значение S превысит заданное значение А. программирую в VBA, и не знаю чему равно n, или i, кому как удобно.

ДвоечникТочно · Answer

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.

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

Объяснение:

S это Z ошибся не много надеюсь полезно