Ответы
Ответ дал:
1
var a,cra,crg:real;
i:integer;
begin
cra:=0;
crg:=1;
for i:=1 to 4 do begin
writeln('введите ' , i ,' число');
readln(a);
cra:=cra+a;
crg:=crg*a
end;
cra:=cra/4;
crg:=sqrt(sqrt(crg));
writeln('ср арифм=',cra);
writeln('ср геом=',crg);
end.
Приложения:
![](https://st.uroker.com/files/3fc/3fce8de471a555b6185d23e735e44a5b.png)
Вас заинтересует
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад
8 лет назад