• Составить программу: Получить первые k членов арифметической прогрессии с первым членом,равным сорока ,и разностью минус

Ответы 1

  • program ;var a1, d, k, i: integer;begin writeln(\'введите k\'); readln(k); a1 := 40; d := -5; i := 1; while i <= k do begin writeln(a1); a1 := a1 + d; i := i + 1; end;end.Другой вариант от // PascalABC.NET 3.1, сборка 1250 от 28.05.2016program;begin SeqGen(ReadInteger(\'k=\'),40,x->x-5).Printlnend.
  • Добавить свой ответ

Войти через Google

или

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

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

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