Запиши программу на языке Паскаль. Вычисли сумму s=∑k=1nk+1k2+1, если значение n вводит пользователь. Если n=8, то вывод на экран (ответ округли до сотых)

// PascalABC.NET 3.2, сборка 1439 от 09.05.2017
// Внимание! Если программа не работает, обновите версию!

function ДробьНесократима(Чис,Знам:integer):boolean;
begin
  while Знам<>0 do begin Чис:=Чис mod Знам; Swap(Чис,Знам) end;
  Result:=Чис=1
end;

begin
  for var Знаменатель:=2 to 7 do
    for var Числитель:=1 to Знаменатель-1 do
      if ДробьНесократима(Числитель,Знаменатель) then
        Write(Числитель,'/',Знаменатель,' ');
  Writeln
end.

Результат
1/2 1/3 2/3 1/4 3/4 1/5 2/5 3/5 4/5 1/6 5/6 1/7 2/7 3/7 4/7 5/7 6/7

Таблица умножения в Excel двумя
Создать таблицу умножения чисел от 1 до 9 (9 строк, 9 столбцов). В ячейке, соответствующей произведению 1*1, должна быть записана формула, которая затем должна быть скопирована во все остальные 80 ячеек. Решение в двух вариантах:

1)с использованием смешанных ссылок;

2)с использованием формулы массивов.

Метод 1. С использованием смешанных ссылок.

Составим таблицу. Введем по столбцам цифры от 1 до 9 и по строкам.
В ячейку В2 введем формулу: =$A2*Bкопируем эту ячейку во все остальные ячейки диапазона В2:J10. Получим таблицу умножения:
таблица умножения в EXCEL с смешанных ссылок

Метод 2. С использованием формулы массивов.

В ячейки В2:J2 введем цифры от1 до 9 и в ячейки А14:А22.
Выделим ячейки В14:J22 и введем формулу =B13:J13*A14:A22. Нажмем Ctrl+shift+Enter, чтобы формула вставилась как формула массива. Получим:

таблица умножения в EXCEL с формул массива