61/2=30 (остаток 1)30/2=15 (остаток 0)15/2=7 (остаток 1)7/2=3 (остаток 1)3/2=1 (остаток 1)1/2=0 (остаток 1)Записываем остатки в обратном порядке, это и будет ответ111101
61/8=7 (остаток 5)7/8=0 (остаток 7)Записываем остатки в обратном порядке, это и будет ответ75
61/16=3 (остаток 13)3/16=0 (остаток 3)Записываем остатки в обратном порядке, это и будет ответ3D
Ответ такой: 137 восьмеричной системе счисления
1) var a,b,c,d:integer;
begin
write('Введите кол-во товара: ');
readln (a);
write ('Введите цену товара: ');
readln (b);
c:=a*b;
writeln ('Стоимость покупки составила ',c,' рублей');
write ('Сколько денег Вы даёте за покупку: ');
readln (d);
if d<c then writeln ('Вам ещё нужно доплатить ',c-d,' рублей');
if d=c then writeln ('Сдачи нет');
if d>c then writeln ('Сдача составила ',d-c,' рублей');
end.
2) var a,b,c:integer;
begin
write ('Введите длину стороны a: ');
readln (a);
write ('Введите длину стороны b: ');
readln (b);
write ('Введите длину стороны c: ');
readln (c);
writeln;
if (a<b+c) and (b<a+c) and (c<a+b) then writeln ('Такой треугольник существует.')
else writeln ('Такой треугольник не существует.');
end.
3) var i,n:integer;
b:array[1..1000] of real;
c:real;
begin
c:=0;
write ('Введите кол-во дней: ');
readln (n);
for i:=1 to n do
begin
if i=1 then b[i]:=10 else b[i]:=b[i-1]+((b[i-1]/100)*10);
end;
for i:=1 to n do
begin
c:=c+b[i];
end;
writeln ('Всего спортсмен пробежит ',c:0:2,' км за ',n,' дней');
end.
Если это монохромный, то это два цвета.
По формуле N = 2 в степени i определяем N. Т.к. цветов всего два, то на один пиксель идёт 1 бит информации. Значит, i = 1 бит (минимальное значение на 1 цвет).
Информационный объём
I = k*i
Считаем К, т.е. сколько пикселей в монохромном рисунке. Если это квадрат, то у него все стороны равны. Значит, K = 64*64 = 4096 пикселя.
I = 1 бит*4096=4096 бит.
Разделим на 8 (8бит=1 байт) и получим 512 байт.
Блин! Начал писать программу, а комп ВЫЛЕТЕЛ....
Поэтому припоздал....
uses Crt;
var i, n, m, z1, z2 :integer;
begin
ClrScr;
Write (' n = ');
ReadLn(n);
WriteLn;
if (n<0) or (n>18) then WriteLn (' None!')
else begin
for i:=11 to 99 do
begin
m:=i;
z1:=m div 10;
z2:=m mod 10;
if (z1+z2=n) then Writeln(' m = ', m);
end;
end;
ReadLn;
end.