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

Вычислить сумму Z = 1 + 2 + 3 + ... . Вычисления прекратить, когда значение Z превысит заданное значение A. Решить при помощи: 1.Операторов цикла.(i:=N1 to N2 do "оператор") 2.Цикла с предусловием.(While)
Гость
Ответ(ы) на вопрос:
Гость
var a,i,z1,z2:integer; begin read(a);   for i:=1 to a do z1:=z1+i; while z
Не нашли ответ?
Ответить на вопрос
Похожие вопросы