Крестьянину было предложено взять столько земли, сколько он успеет обежать по замкнутому контру в течение одного дня.ему выгодно бежать по маршруту , пролегающему по : 1)прямой 2)сторонам треугольника 3)сторонам квадрата 4)окружности 5)сторонам шестиугольника

По сторонам квадрата

Var       i: integer;       k : = 0;       s : = 0; begin       for i : = 10 to 99 do               if i mod 5 = 0 then begin                       s : = s + i;                       k : = k + 1;               end;             writeln('количество  = ', k, ' и сумму = ', s); end.

Сумма квадратов натуральных чисел до 50var      i: integer;       s : = 0; begin      for i : = 1 to 50 do              s : = s + i * i;                     writeln(s); end.сумма квадратов натуральных чисел ближайшая к 50var      s : = 0;       i : = 0; begin      repeat              s : = s + i * i;               i : = i + 1;                     until s + i * i > = 50;             writeln(s); end.