РЕШИТЬ ПРИ ПОМОЩЬ ОПЕРАТОРА ЦИКЛА for!

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

1

Ответы и объяснения

2012-12-20T09:01:46+00:00

Program Program1;
Var
i,z,a:integer;
begin
write('Введите значение A: ');
readln(a);
z:=0;
for i:=1 to 1000 do
begin
z:=z+i;
if z>a then break;
end;
writeln('Z=',z);
end.