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>
Нужно с конца про нумеровать их(над ними карандашом написать 0,1,2,3,4...)потом 1×2\6 ( 6 писать как например 2в квадрате над верхом с право)(×2 потому что нужно перевести в десятичную из двоичной) получается :1×2\6+0×2\5+0×2\4+0×2\3+1×2\2+1×2\1+0×2\0=64+4+2=70( при умножении на ноль результат ноль,так што умножай то что с единицей!!!)
Program abc;
var a:integer;
BEGIN
writeln ('2+1*3=?');
read (a);
if a=5 then
writeln ('Ты молодец')
else ('Не правильно, попробуй еще раз');
END.
Форматирование текстового документа
Форматирование документа – это изменение его внешнего вида. WORD обеспечивает форматирование документов на пяти различных уровнях:
<span>на уровне символов (изменение гарнитуры, начертания, размера и цвета шрифта, межбуквенного интервала в слове, анимации и т. д. ) </span>