Program p1;
uses crt;
var a,b,c,d,e,s:integer;
begin
a:=50;
b:=10;
c:=5;
d:=1;
writeln('сколько у вас монет по 50');
read(e);
s:=a *e;
writeln('сколько у вас монет по 10');
read(e);
s:=s+b*e;
writeln('сколько у вас монет по 5');
read(e);
s:=s+c*e;
writeln('<span>сколько у вас монет по </span> 1');
read(e);
s:=s+d*e;
write('Всего копеек ',s);
end.
var a:array[1..15] of char;
i,min,max:integer;
Begin
min=1;
max=1;
for i:= 1 to 15 do begin
a[i]:= chr(random(256));
if a[min]>a[i] then min:=i;
if a[max]<a[i] then max:=i;
end;
writeln(a[min], a[max]);
End.
Ответ: 1010101
Если надо в двоичной
..............................................
.
.....
.....