<em>1. Обыкновенное современное решение с лямбда-выражением (разновидность функции)</em> <em>// PascalABC.NET 3.2, сборка 1437 от 03.05.2017</em> <em>// Внимание! Если программа не работает, обновите версию!</em>
begin var k,m:integer; Write('Введите k,m: '); Read(k,m); Writeln('S=',Range(k,m).Select(i->i*i).Sum) end.
<u>Пример</u> Введите k,m: 3 6 S=86
<em>2. Школьное решение в стиле ТурбоПаскаль 1983г. без всяких функций</em>
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.
<em>3. Школьное решение в стиле ТурбоПаскаль 1983г c функцией </em>
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.