задача в паскале абс

+ 0 -

Dangerous93

02 янв. 2017 г., 11:11:38 (7 лет назад)

var
  a, d: real;
  i, n: integer;

begin
  write('Введите значение первого члена прогрессии, a=');
  readln(a);
  write('Введите значение разности прогрессии, d=');
  readln(d);
  write('Введите количество членов прогрессии, n=');
  readln(n);
  writeln('Значения членов прогрессии:');
  for i := 1 to n do
    write(a + d * (i - 1), ' ')
end.

Тестовое решение:

Введите значение первого члена прогрессии, a=4
Введите значение разности прогрессии, d=2
Введите количество членов прогрессии, n=6
Значения членов прогрессии:
4 6 8 10 12 14