Дана последовательность чисел 1, 4, 7, 10, 13, 16........ Считать сумму

Дана последовательность чисел 1, 4, 7, 10, 13, 16........ Считать сумму всех частей этой последовательности до тех пор пока она не достигнет 1000

Задать свой вопрос
1 ответ
Var a,i,s:integer; begin a:=4; s:=0; while alt;=1000 do begin s:=s+a; a:=a+3; end; writeln(s) end. Как следует, это и является ответом
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт