Uses crt;const n=10;var D,B,C: array [1..n] of integer; i,k: integer;
begin for i:=1 to n do begin D[i]:=random(100); writeln(D[i]); end; for i:=1 to n do begin if D[i]<10 then B[i]:=D[i]; if D[i]>10 then C[i]:=D[i]; if D[i]=10 then inc(k); end; writeln('Кол-во элементов, равных 10 = ',k);<span>end.</span>
Ответ:
14638(десячичная система) -
пронумеруем разряды
4 3 2 1 0
1 4 6 4 8
теперь запишем выражение
14638(десячичная система) = 1 х 10^4 + 4 х 10^3 + 6 x 10^2 + 4 x 10^1 + 8 x 10^0
Объяснение:
<em>// PascalABC.NET 3.3, сборка 1583 от 25.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
uses GraphABC;
begin
Window.SetSize(800,600);
Draw(x->x=1?1.0:10/(x-1)+5*Sin(x),-20.0,20.0)
end.
<u>Результат приведен во вложении</u>
"Звенелки" "Будилки"
колокольчик будильник
звонок(дверной) настенные часы
колокол музыка у соседей))
треугольник(музыкальный) телефонный звонок
домофон петух