Var
mas:array[1..10]of integer;
i:integer;
Begin
write('Введите 10чисел: ');
for i:=1 to 10 do readln(mas[i]);
write('Четными являются: ');
for i:=1 to 10 do<span> if (mas[i] mod 2 = 0) then write(mas[i],' ');
</span>End.
1. 456_8=4*64+5*8+6*1=256+40+6=302
2359_16=0010001101011001
13CF_16=1001111001111_2=11717
11212_3=2*1+1*3+2*9+1*27+1*81=2+3+18+27+81=131_10=203_8=83_16
Ответ:
где название книги - это имя файла
//PascalABC.Net 3.1.0.1200
begin
var n := ReadInteger(' n =');
writeln(n div 10 mod 10);
end.