Найти сумму чисел ряда 1,2,3,... ,используя функцию.
Program Summa;
uses crt;
var n:integer;
function Sum(m: integer): integer;
var i,s: integer;
begin
s:=0;
for i:=1 to m do s:=s+i;
Sum:=s
end;
Begin
clrscr;
write('До какого числа суммировать? :'); readln(n);
write('Сумма чисел ряда S=',Sum(n)) { -вызов функции Sum с парам.}
readkey;
End.
З А Д А Н И Я:
1. Набрать и исполнить программу.
2. Изменить программу так, чтобы была найдена сумма чисел от m до числа n, вводимых с
клавиатуры.
Задание с функции НУЖНО

1.  внутреннюю — оперативную и внеш¬нюю — долговременную2.  устройствами и 3.  красный, зеленый, синий4. целые числа в памяти компьюте¬ра это: дискретное и конечное множество5.  контроллер6.  передача данных, передача адресов7.  d8.  прикладные программы общего назначения и специализированные программы9. главная формула информатики? 2i = n16i = n2f = z2i = m10.  прикладные программы и системные программы11. к основным типам устройств оперативной памяти относятся? динамическая и статическая память12.  компьютер13. какой универсальный звуко¬вой формат файлов используется для сохранения звука без потерь? wav14.  множество целых чисел в компьютере дискретно, конечно, ограничено15. в памяти компьютера числа хранятся? в двоичной сис¬теме счисления16. архитектура персонального компьютера это? общие принципы построения компьютера17. как называется инструмент для работы профессиональных программистов? многопользовательские и системы программирования18. какой термин считается правильным о представлении о множестве целых чисел в ? множество целых чисел дискретно, бесконечно, неограниченно19. текстовая информация уже дискретна и состоит из? отдельных знаков20. какую графику применяют при разработке электронных и полиграфических изданий? векторная