<span>uses crt;
var x,n,res:longint;
begin
clrscr;
write (' vvedite chislo: ');
readln (x);
</span><span>res:=1;
for i:=1 to n do
res:=res*x
write (res);
readln;
end.</span>
1) 13F = 1 0011 1111
2) E98 = 1110 1001 1000
3) <span>10011111 = 9F
4) </span><span>10000001 = 81
5) </span><span>10100011 = A3</span>
Div берет целую часть от деления
15/4 = <span>3.75
Целая часть числа 3.75 = 3
</span>X = 3
begin
writeln(15 div 4);
end.
Program n_1;
var a: array [1..12] of integer; i, n, x:integer;
begin
n:=-1;
for i:=1 to 12 do read(a[i]);
readln(x);
for i:=1 to 12 do if x=a[i] then begin n:=i; writeln('Yes'); Writeln(n); break; end;
if n=-1 then writeln('No');
end.