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.