Uses graphabc;
procedure vvod(var a,b: integer);
begin
writeln('Введите ширину отступа');
read(a);
writeln('Введите ');
read(b);
end;
procedure squares(r,nachdl: integer);
var x1,y1,x2,y2: integer;
begin
y1:=0;
x1:=0;
x2:=nachdl;
y2:=nachdl;
while x2<windowheight do
begin
drawrectangle(x1,y1,x2,y2);
x2:=x2+r;
y2:=y2+r;
nachdl:=nachdl+r;
end;
end;
var
r,nachdl: integer;
begin
vvod(r,nachdl);
squares(r,nachdl);
<span>end.</span>
1 байт= 8 бит
72байта : 8 бит =9
♥♥♥♥♥♥
Ответ:
Мудрецу 18 лет , а система счисления пятиричная
Объяснение:
Решение:
Составим уравнение
3x+3+1x(2степень)+3x+1+1x(2степень)+2x+4=3x(2 степень)+4x+3
х(2степень)-4х-5=0; х=5
Отсюда система счисления будет равна 5, теперь переведем годы в десятичную
33(5степень)=3 *5+3=18 лет;
124(5степень)=1*5(2 степень):+2*5(1степень)+4*5(0степень)=39 лет матери; 131(5степень)=41 год отцу
Ответ: Система счисления пятиричная, а мудрецу 18 лет
var i: integer;
begin
for i := 1000 to 9999 do
if (i div 1000) * (i div 100 mod 10) * (i div 10 mod 10) * (i mod 10) = 40
then writeln(i)
<span>end.</span>
Таблица))))))))))))))))))