Var
b:integer;
begin
readln(b);
case b of
0:
writeln('Нуль');
1:
writeln('Один');
2:
writeln('Два');
3:
writeln('Три');
4:
writeln('Четыре');
5:
writeln('Пять');
6:
writeln('Шесть');
7:
writeln('Семь');
8:
writeln('Восемь');
9:
writeln('Девять');
end;
<span>end.</span>
1) program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin
for i:=1 to n do
if B[i] mod 2=0 then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.
2) </span>program X;
var
B:array [0..325] of integer;
i,g,n:integer;
Begin
write ('Введите количество элементов массива = ');
read(n);
For i:= 1 to n do
Begin
B[i]:= -10+random(25);
write (B[i]:4);
end;
writeln;
writeln('новый массив');
begin for i:=1 to n do
if (B[i] mod 2=0) and (i mod 2<>0)
then
begin
g:=i;
B[i]:=g;
write (B[i]:4);
end;
end;<span>
End.</span>
Software (англ.) - программное обеспечение.
Пример
44(10) переведём в двоичную систему
44 делим на 2. частное 22, остаток 0
22 делим на 2. частное 11, остаток 0
11 делим на 2. частное 5, остаток 1
5 делим на 2. частное 2, остаток 1
2 делим на 2. частное 1, остаток 0
1 делим на 2. частное 0, остаток 1
Частное равно нулю, деление закончено. Теперь записав все остатки снизу вверх получим число 101100(2)