Поделитесь своими знаниями, ответьте на вопрос:
ИНФОРМАТИКЕ Написать программу "Найти среднее арифметическое трёх чисел введенных с клавиатуры" XX= a+b+c/3 Program sr_arifm Var a, b, c, x:real Begin Writeln('Введите три числа') Readln(a, b, c) x:=??? Writeln('Среднее арифметическое=', x) end.
Тупо дописываем в 6 строку (a+b+c)/3
Program sr_arifm
Var a,b,c,x:real
begin
Writeln('Введите три числа') ;
Readln(a,b,c) ;
x:=(a+b+c)/3;
Writeln('Среднее арифметическое=', x) ;
end.