ИНФОРМАТИКЕ Написать программу "Найти среднее арифметическое трёх чисел введенных с клавиатуры" XX= a+b+c/3 Program sr_arifm Var a, b, c, x:real Begin Writeln('Введите три числа') Readln(a, b, c) x:=??? Writeln('Среднее арифметическое=', x) end.
Ответы
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
Full hd конечно но попробуйте
Автор: margarita25061961
Https://imgur.com/a/khJfPrz
Автор: Voronov434
Тупо дописываем в 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.