Нейросети и программирование. Выпуск 3. Николай Петрович Морозов

digit;

      var i: integer;

      begin

      for i:= 1 to 10 do writeln (i)

end.

      2. Вывести на экран в столбик числа от 10 до 1 и подсчитать их сумму.

      program digit;

      var i, sum: integer;

      begin

      sum:= 0;

      for i:= 10 downto 1 do

      begin

      writeln (i);

      inc (sum, i) {инкремент – inc (х) —увеличивает х на 1, inc (х, 3) – на 3}

      end;

      writeln («Сумма чисел:», sum);

      readln;

      end.

      2.Реализация программы, ее тестирование и отладка на примере решения задачи определения наибольшего общего делителя

      2.1.Черновой вариант алгоритма определения наибольшего общего делителя