Const n=10; m=5;
var
i,j,k:integer;
A:array[1..n] of integer;
B,C:array[1..m] of integer;
begin
writeln('Введите элкменты массива');
for i:=1 to n do readln(a[i]);
j:=0; k:=0;
for i:=1 to n do
if i mod 2=1 then begin j:=j+1; B[j]:=A[i] end
else begin k:=k+1; C[k]:=A[i] end;
writeln('Массив А');
for i:=1 to n do write(A[i],' ');
writeln;
writeln('Массив B');
for i:=1 to j do write(B[i],' ');
writeln;
writeln('Массив C');
for i:=1 to k do write(C[i],' ');
writeln
end.
– • –т – –р •е – • к• – б• • о – – •л – – •л
ТРЕКБОЛЛ
C английского trackball: track - путь, тропа + ball - шар, мяч. Трекбол - устройство в
виде шара на подставке, используемый вместо мыши или джойстика.
<span><span>
P.s. Т.к. трекбол на русском языке пишется с
одной «л», поэтому в правильности ответа я сомневаюсь</span> (на английском языке пишется двойная "L", но на русском одна «л»).</span>
Readln(n);
If (n>0)
write (n*n);
else
weite(0);
Видимо, 0 нельзя вводить?
Точный элемент экрана дисплея это:
пиксель.
За каждую клетку число зерен удваивается и мы получаем сумму такого ряда:
Это число равно 18 446 744 073 709 551 615.
Определим приблизительный объем зерна
18446744073709551615 / 15000000 ≈ 1 229 782 938 247м³
Если считать, что амбар имеет форму куба, длина его каждого измерения составит приблизительно ∛1229782938247 ≈ 10714м.