Даны числа a,b,c. найти сумму этих чисел произведение и среднее арифметическое...

Question

Даны числа a,b,c. найти сумму этих чисел произведение и среднее арифметическое значение.Проверка а=2,b=5,c=16,s=13,p=60,sr=20. СРОЧНО ПОЖАЛУЙСТА

Answer 1

Var a,b,c,s,p,sr:integer;
begin
writeln(‘vvedite a b c:’);
readln(a,b,c);
s:=a+b+c;
p:=a*b*c;
sr:=(a+b+c)/3;
writeln(‘summa: ‘,s,’proizvedeniye: ‘,p,’sredneye arifmeticheskoye: ‘,sr);
end.