Помогите округлить десятичные дроби : 1) 7,3605 , 0,9421 , 3,1502 , 12,0374 , 9,5601 - до десятых 2) 0,67509 , 4,23265 , 29,4807
Ольгаволгда
<em>1) 7,3605=7,4...0,9421=0,9...3,1502=3,2...12,0374=12...9,5601=9,6 2)0,67509=0,675...4,23265=4,233...29,48075=29,481...29,48075=29,481 </em>
Я считаю что свойства объекта является производство кислорода (чистка воздуха)
Var min, n, r, m:integer;
begin
writeln('Введите целое положительное число');
read(n);
min := 10;
r := 1;
while r <> 0 do
begin
m := n mod 10;
if (m < min) and (m mod 2 = 1) then min := m;
r := n div 10;
n := r;
end;
if min = 10 then writeln('В числе нет нечетных цифр') else writeln (min)
<span>end.</span>
<u>PascalABC.NET 3.3.5, сборка 1660 от 20.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(5,-13,8).Println.Where(t->(t<0) and t.IsOdd).ToArray;
if a.Count>0 then a.Aggregate(1,(i,j)->i*j).Println
else Writeln(0)
end.
<u>Пример</u>
-2 -6 -6 -7 -13
91
Просто выделяй обе эти ячейки и растягивай их