У соцветия «Початок» женские цветки располагаются на: а) общем разросшемся цветоложе; б) общей разросшейся оси соцветия; в) на вершине разросшейся оси соцветия.
Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой. (что бы округлить сумму нужно записывать количество десятичных разрядов в конце выражения). Пример:«=ОКРУГЛ(выражение);число)»
Дано:
Математическое выражение: «(89+75)−2(72:(3+7))»
Найти: Значение выражения и округлить его в MS Ecxel.
Формула (Её нужно ввести в окошко Excel и нажать "Enter"): «=ОКРУГЛ((89+75)-2*(72/(3+7));2)»
ответ: 149,6
(До сотых программа округлить не может, ибо число имеет только десятые в ответе)
Далее скриншот, и файл Excel в котором формула и сам ответ.
procedure tf; var q,j:longint; o:array[1..10] of longint; begin write(m[1],' '); q:=1; o[q]:=m[1]; i:=1; while q<>3 do begin i:=i+1;
if q=1 then if m[i]<>o[1] then begin write(m[i],' '); q:=q+1; o[q]:=m[i]; end;
if q=2 then if (m[i]<>o[1]) and (m[i]<>o[2]) then begin write(m[i]); q:=q+1; end; end; end;
procedure tm; var mk:array[1..10] of longint; begin for i:=1 to 3 do mk[i]:=0;
for i:=1 to n do if mk[1]<m[i] then begin mk[3]:=mk[2]; mk[2]:=mk[1]; mk[1]:=m[i]; end else if (mk[2]<m[i]) and (m[i]<>mk[1]) then begin mk[3]:=mk[2]; mk[2]:=m[i]; end else if (mk[3]<m[i]) and (mk[2]<>m[i]) then mk[3]:=m[i];
write(mk[1],' ',mk[2],' ',mk[3]); end;
Скорее всего это можно было написать чище и оптимальнее, но вот моё решение на скорую руку
Дано:
Математическое выражение:
«(89+75)−2(72:(3+7))»
Найти:
Значение выражения и округлить его в MS Ecxel.
Формула (Её нужно ввести в окошко Excel и нажать "Enter"):
«=ОКРУГЛ((89+75)-2*(72/(3+7));2)»
ответ:
149,6
(До сотых программа округлить не может, ибо число имеет только десятые в ответе)
Далее скриншот, и файл Excel в котором формула и сам ответ.