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

Ответы 1

  • var a,i,s:integer;begina:=4;s:=0;while a<=1000 dobegins:=s+a;a:=a+3;end;writeln(s)end.
    • Автор:

      celloat3i
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

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

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

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