Помогите, пожалуйста, решить задачу
Приложения:
restIess:
язык программирования не забывайте указывать
паскаль
сможете помочь, пожалуйста?
эх, ну я ж не собирался это делать((
блок-схему тоже надо?
да
есть чем .vsdx файлы открывать?
Ну их же можно с телефона открыть?
Не уверен, закинул блок-схему в вордовский файл, так точно с телефона откроется
огромное спасибо!!!
Ответы
Ответ дал:
0
uses math;
var
i,x,s,gs : integer;
begin
s := 0;
gs := 1;
for i := 1 to 4 do
begin
readln(x);
s := s + x;
gs := gs * x;
end;
writeln('Среднее арифметическое равно: ',s/4:4:4);
writeln('Среднее геометрическое равно: ',power(gs,1/4):4:4);
end.
Приложения:
Вас заинтересует
2 года назад
2 года назад
2 года назад
7 лет назад