Question

Напишите программу, которая находит сумму, произведение и среднее арифметическое трёх целых чисел, введённых с клавиатуры. входные данные три целых числа вводятся в одной строке через пробелы. выходные данные программа должна вывести сумму, произведение и среднее арифметическое введенных чисел. среднее арифметическое нужно вывести с точностью 3 знака после десятичной точки (ровно 3 знака с учетом округления). примеры входные данные 4 5 7 выходные данные 4+5+7=16 4*5*7=140 (4+5+7)/3=5.333

Answer 1

var a,b,c:integer;
begin
read(a,b,c);
writeln(a,'+',b,'+',c,'=',a+b+c);
writeln(a,'*',b,'*',c,'=',a*b*c);
writeln('(',a,'+',b,'+',c,')/3=',(a+b+c)/3:4:3);
end.

Answer 2

Program Name;
var a,b,c,s,p:integer;
F:real;
begin
readln (a);
readln (b);
readln (c);
s:=a+b+c;
p:=a*b*c;
F:=(a+b+c)/3;
writeln ('s=',a+b+c);
writeln ('p=',a*b*c);
write ('F=',(a+b+c)/3:0:3);
end.
Сумму обозначила буквой s
Произведение обозначила буквой p
Среднее арифметическое обозначила буквой F