Const n=10;
var x : array[1..n] of integer;
i : integer;
begin
Randomize;
writeln('Исходный массив:');
for i:=1 to n do
begin
x[i]:=random(31)-30;
write(x[i],' ');
end;
writeln;
for i:=1 to n do
if x[i] mod 2 <>0 then x[i]:=x[i]*x[i];
writeln('Измененный массив:');
for i:=1 to n do write(x[i],' ');
writeln;
<span>end.</span>
Мне кажеться 2 правильно,а это в каком приложении надо сделать?
Автор кто? скажи автора я тебе решу
// PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!
Begin
var n:= readlnInteger('n =');
var a:= ReadlnString.ToIntegers;
SetLength(a, n);
var k:= a.where(t -> (t>100)and(t mod 7 = 0)).Count;
Writeln(k);
end.
<h2>Задание 1</h2>
1⁵ 0⁴ 1³ 0² 1¹ 0⁰ = 1 · 2⁵ + 0 · 2⁴ + 1 · 2³ + 0 · 2² + 1 · 2¹ + 0 · 2⁰ = 32 + 0 + 8 + 0 + 2 + 0 = 42₁₀
<h2>Задание 2</h2>
35 = 32 + 2 + 1 = 2⁵ + 2¹ + 2⁰ = 100 000 + 10 + 1 (в столбик - двоичное сложение) = 100011₂
<h2>Задание 3</h2>
Стоит помнить, что:
1 + 1 = 10
1 + 1 + 1 = 11
1 + 1 + 1 + 1 = 100
Это происходит, потому что в 2-й системе счисления всего два числа - 0 и 1. В 10-й системе счисления это выглядело бы примерно так:
...
1 + 9 = 10
...
1 + 19 = 20
...
1 + 99 = 100
То есть переполнение числа приводит к тому, что цифра слева увеличивается на единицу. В случае, если есть девятка - то цифра слева увеличивается на 1.
999 + 1 = 1 0 0 0