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