Ответы
Ответ дал:
4
Program zadanie;
Var a,b,c:real;
Begin
Writeln('Введите значения a,b,c');
Readln(a,b,c);
a:=(a+b+c)/3;
Writeln('Среднее арифметическое чисел a,b,c=',a);
End.
Var a,b,c:real;
Begin
Writeln('Введите значения a,b,c');
Readln(a,b,c);
a:=(a+b+c)/3;
Writeln('Среднее арифметическое чисел a,b,c=',a);
End.
alinaorlova222:
спасибо)
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
7 лет назад
7 лет назад