Question

Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления прекратить, когда значение Z превысит заданное значение A.Решить при помощи:1.Операторов цикла.(i:=N1 to N2 do "оператор")2.Цикла с предусловием.(While)

Answer 1

var

a,i,z1,z2:integer;

begin

read(a);

 

for i:=1 to a do

z1:=z1+i;

while z<a do

for i:=1 to a do

 

 z2:=z2+i;

write(z1,z2);

end.