Помогите, преобразовать данную программу в функцию ПОЖАЛУЙСТА var s,a,i:integer; begin ...

Question

Помогите, преобразовать данную программу в функцию ПОЖАЛУЙСТА

var
s,a,i:integer;
begin
readln(a);
s:=0;
for i:=1 to a do
s:=s+i;
writeln(s);
end.

Comments

Программу нельзя преобразовать в функцию. Уже хотя бы потому, что функция возвращает значение и её надо откуда-то вызывать, а программа ничего не возвращает и её вызывать не надо, только запустить.

---

блин, надо написать функцию которая будет считать сумму всех чисел до введенного числа включительно.

---

И этой функции что - массив данных передавать? Или внутри функции организовавать ввод?

---

Если вводить внутри - Вам уже ответ написали

Answer 1

Var
  a: integer;
function f(a: integer): integer;
var
  s, i: integer;
begin
  s := 0;
   for i := 1 to a do
     s := s + i;
   f := s;
end;
begin
  readln(a);
  writeln(f(a));
end.

Comments

Огромное спасибо)