28 15 10

Наибольшее число: 28

2)Составить функцию, которая определяет сумму всех чисел от 1 до N и привести пример ее использования.

Пример:

Введите число:

100

Сумма = 500

Буду очень признателен за помощь.

Ответы:

1 задача.

var a,b,c:integer,

begin

clrscr,

readln(a,b,c),

if a&gt,=b and a&gt,=c then writeln(a) else

if b&gt,=a and b &gt,= c then writeln (b) else

writeln(c),

end.

2-я задача.

var a,s,i:integer,

begin

clrscr,

readln(a),

s:=0,

for i:=1 to a do

s := s+i,

writeln(s),

end.