Предмет: Информатика,
автор: lerchek15
Помогите, пожалуйста, решить задачу
Приложения:
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.
Приложения:
Интересные вопросы
Предмет: География,
автор: pisarevbp
Предмет: Алгебра,
автор: Илюха143
Предмет: Геометрия,
автор: няшкааааааааааааа
Предмет: Математика,
автор: анар101
Предмет: Литература,
автор: 120934985678