Задать вопрос Регистрация
Помочь другим

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

    Решить при помощи:

    1.Операторов цикла.(i:=N1 to N2 do "оператор")

    2.Цикла с предусловием.(While)

Ответы 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.

     

     

     

     

     

     

     

     

     

     

     

     

     

     

  • Добавить свой ответ

Еще вопросы

Топ пользователей

Войти через Google

 или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years