<u>PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var a:=ArrRandom(15,-50,50); a.Println;
Writeln('Отрицательных: ',a.Where(t->t<0).Count);
Writeln('Минимум: ',a.Min);
Writeln('Среднее арифметическое отрицательных: ',
a.Where(t->t<0).Average)
end.
<u>Пример</u>
-16 47 -41 -26 1 3 27 -28 -26 4 -19 -13 -16 38 20
Отрицательных: 8
Минимум: -41
Среднее арифметическое отрицательных: -23.125
Ответ:
Результат:
18.5410 =10 010.100 010 12
Решение:
Приведем целую часть числа 18.54 в систему счисления 2 последовательным делением на число 2:
18/2=9 остаток 0
9/2=4 остаток 1
4/2=2 остаток 0
2/2=1 остаток 0
1/2=0 остаток 1
Записав полученные цифры в ряд снизу вверх, получим:
1810=100102
Приведем дробную часть числа 18.54 в систему счисления 2 последовательным умножением на число 2:
0.54·2=1.08=0.08+1
0.08·2=0.16=0.16+0
0.16·2=0.32=0.32+0
0.32·2=0.64=0.64+0
0.64·2=1.28=0.28+1
0.28·2=0.56=0.56+0
0.56·2=1.12=0.12+1
0.12·2=0.24=0.24+0
0.24·2=0.48=0.48+0
0.48·2=0.96=0.96+0
Записав полученные цифры в ряд сверху вниз, получим:
0.5410=0.10001010002
Объединив целые и дробные части, получим решение:
18.5410=10010.10001012
Объяснение:
1)
Var x:integer;
Begin
write('x=');
readln(x);
if x>=0 then x:=x*2;
else x:=abs(x);
writeln('Otvet=',x);
readln;
End.
Ответ: Операционная система
Из условия неясно, как определяются размеры участков огорода - линейными размерами или площадью. Т.е. что должно быть целым - линейные размеры или площадь? Будем считать, что целыми должны быть линейные размеры.
Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.
var
A,B:integer;
f:Text;
begin
Assign(f,'input.txt');
Reset(f);
readln(f,A,B);
writeln('Размеры участка ',A,', ',B);
if (A mod 2=0) or (B mod 2=0) then writeln('0')
else writeln('1')
end.
Результат решения:
Размеры участка 8, 4
0