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

  • дана последовательность чисел содержится 1-но  отрицательное число найти сумму элементов этой последовательности до 1-го отрицательного числа  решите пожалуйста ))) 

Ответы 1

  • var a,s:integer;begina:=0;while a>=0 do beginread(a);if a>0 then s+=a;end;writeln(s);end.

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

Еще вопросы

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

Войти через Google

 или

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

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

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