решить в Excel!Очень надо решить в Excel!Очень надо. ">

В файле

Объяснение:

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

Type
  St = record
    iquo: integer; {целая часть}
    irem: integer; {числитель дроби}
    idiv: integer; {знаменатель дроби}
  end;

function iMax(i, j: integer): integer;
begin
  if i > j then iMax := i else iMax := j
end;

function iMin(i, j: integer): integer;
begin
  if i < j then iMin := i else iMin := j
end;

function FR(i, j, k: integer): St;
var
  nmax, nmin: integer;

begin
  nmax := iMax(iMax(i, j), k);
  nmin := iMin(iMin(i, j), k);
  with Result do
  begin
    iquo := nmax div nmin;
    idiv := nmin;
    irem := nmax mod nmin
  end
end;

var
  a, b, c: integer;
  r: St;

begin
  write('Введите через пробел три целых числа:');
  readln(a, b, c);
  r := FR(a, b, c);
  writeln('Результат работы функции: ', r.iquo, ' целых и ', r.irem, '/', r.idiv)
end.

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

Введите через пробел три целых числа:343 253 37
Результат работы функции: 9 целых и 10/37