• дана арифметическая прогрессия из N членов.Число элементов N,1-й элемент а1 и разность d задаются с клавитуры.Вывести все члены прогрессии на экран и вычислить сумму элементов прогрессии,значение которых меньше пяти.Решить задачу тремя способами.прошу помогите я буду очень благодарен.

Ответы 1

  • vara: array [1..255] of integer;i, n, d, a1: integer;beginwriteln('n, d, a1');read(n, d, a1);a[1]:=a1;for i:=2 to n do a[i]:=a[i-1]+d;a1:=0;for i:= 1 to n do if a[i]<5 then a1:=a1+a[i];writeln('summa:', a1);for i:=1 to n do write(a[i], ' ')end.
  • Добавить свой ответ

Войти через Google

или

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

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

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