Question

7. Составить алгоритм и написать решение задачи на Паскале: Сгенерировано целое число х1. Определить среднее арифметическое трех чисел х1, х2 и х3, каждое из которых больше предыдущего в 4 раза.

Answer 1

var a,b,c:real;
begin
writeln('Введите 3 числа');
readln(a,b,c);
write('Среднее арифметическое=',(a+4*a+16*a) / :0:2);
end.