Question

Решите плиз 3 вариант, используя функции!!!!

Answer 1

1. Обыкновенное современное решение с лямбда-выражением (разновидность функции)
// PascalABC.NET 3.2, сборка 1437 от 03.05.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var k,m:integer;
  Write('Введите k,m: '); Read(k,m);
  Writeln('S=',Range(k,m).Select(i->i*i).Sum)
end.

Пример
Введите k,m: 3 6
S=86

2. Школьное решение в стиле ТурбоПаскаль 1983г. без всяких функций

uses Crt;
var k,m,s,i:integer;
begin
  s:=0;
  Write('Введите k,m: '); Read(k,m);
  for i:=k to m do s:=s+i*i;
  Writeln('S=',s);
  ReadKey
end.

3. Школьное решение в стиле ТурбоПаскаль 1983г c функцией

Uses Crt;

function Sum(k,m:integer):integer;
var i,s:integer;
begin
  s:=0;
  for i:=k to m do s:=s+i*i;
  Sum:=s
end;

var k,m:integer;
begin
  Write('Введите k,m: '); Read(k,m);
  Writeln('S=',Sum(k,m));
  ReadKey
end.

Answer 2

Хорошо видно нарастание объема программы. Функция в последнем варианте ничего не дала, кроме дополнительной писанины.