Question

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

 

Пример: 

Введите три числа:

28 15 10

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

 

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

 

Пример:

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

100

Сумма = 500

 

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

Answer 1

1 задача.
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if a>=b and a>=c then writeln(a) else
if b>=a and b >= 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.