Ответ:
В ячейках таблицы
В А1 пишем -50
В А2 пишем -45
Выделяем А1 и А2 и растягиваетм вниз за правый нижний угол до ячейки, в которой окажется 50
В В1 пишем
=ЕСЛИ(И(ЕСЛИ(A1>-10;1;0);ЕСЛИ(A1<40;1;0));A1+2;COS(A1)+A1)
Выделяем В1 и также за нижний правый угол растягиваем вниз.
В столбце В получаем значения функции
Объяснение:
Внимательнее
Все названия ячеек на латинском
Ответ:149E
http://reshinfo.com/v_hestnadcatirichnuju_3.php?sn=5278&sys=10&x=30&y=6
67125/2=33562 - ост 1
33562/2=16781 - ост 0
16781/2=8390 - ост 1
...
1/2=0 ост 1
Запишем остатки в обратном порядке: 10000011000110101
67125 (10)=10000011000110101 (2)
Теперь переведем из 2 в 8
10000011000110101 (2), разбиваем числа по 3 начиная с конца:
010 000 011 000 110 101 , переведем каждое из них в 8
2 0 3 0 6 5
10000011000110101 (2) = 203065 (8)
Теперь переведем из 2 16
10000011000110101 (2), разбиваем числа по 4 начиная с конца:
0001 0000 0110 0011 0101 , переведем каждое из них в 16
1 0 6 3 5
10000011000110101 (2) = 10635 (16)
Ответ: 10000011000110101 (2); 203065 (8); 10635 (16);
PS: Разбитие на 3 и на 4 объясняется тем, что 1 число восьмеричное пишется в двоичной системе из 3 знаков, а 16 из 4.
Var stkv,rkr:real;
begin
writeln('Введите сторону квадрата');
readln(stkv);
writeln('Введите радиус круга');
readln(rkr);
if rkr<stkv/2 then write('входит') else write('не входит')
<span>end.</span>
Var
n, k, s: integer;
begin
s := 0;
k := 0;
repeat
write('Введите целое число = ');
readln(n);
if n > 0 then begin
k := k + 1;
s := s + n;
end
until n = 0;
writeln('Среднее арифметическое = ', s / k);
end.