1) составить функцию, которая определяет наибольшее из трех чисел и пример ее использования. пример: введите три числа: 28 15 10 наибольшее число: 28 2)составить функцию, которая определяет сумму всех чисел от 1 до n и пример ее использования. пример: введите число: 100 сумма = 500 буду признателен за .
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.