Для того что бы округлить нужно использовать "=ОКРУГЛ" данная команда округляет число до указанного количества десятичных разрядов, цифр после запятой. (что бы округлить сумму нужно записывать количество десятичных разрядов в конце выражения). Пример:«=ОКРУГЛ(выражение);число)»
Дано:
Математическое выражение: «(89+75)−2(72:(3+7))»
Найти: Значение выражения и округлить его в MS Ecxel.
Формула (Её нужно ввести в окошко Excel и нажать "Enter"): «=ОКРУГЛ((89+75)-2*(72/(3+7));2)»
ответ: 149,6
(До сотых программа округлить не может, ибо число имеет только десятые в ответе)
Далее скриншот, и файл Excel в котором формула и сам ответ.
Const n=8; var x : array[1..n] of real; i : integer; min : real; begin Randomize; writeln('Исходный массив:'); for i:=1 to n do begin x[i]:=20*random-10; write(x[i]:6:2,' '); end; writeln; min:=x[1]; for i:=2 to n do if x[i] < min then min:=x[i]; writeln('min=',min:6:2); for i:=1 to n do if x[i]<0 then x[i]:=min; writeln('Измененный массив:'); for i:=1 to n do write(x[i]:6:2,' '); end.
i:integer;
begin
for i:=1 to 10 do
begin
writeln (i, sqr(i));
readln;
end.
2. var
i:integer;
begin
for i:=2 to 20 do
begin
if sqr(i) div 2 = 0 then
write (i, ' = 'sqr(i) );
end;
readln;
end.