Ну например линейки по бокам которые регулируют расположение текста на странице.
Газинурович
27.04.2020
Var i,n,k,b: integer; begin write(' b = '); readln(b); write(' n = '); readln(n); i: =n; k: =0; while i> 0 do begin i: =i div 10; k: =k+1; end; if n< =b then writeln('число n не превышает ',b) else writeln('число n больше ',b); if (k mod 2) = 0 then writeln('число цифр = ',k,' - четное') else writeln('число цифр ',k,' - нечетное'); end.
sttig
27.04.2020
Type point = record x,y: real; end; var i: integer; a,b,c: real; pts: array[1..3] of point; begin writeln('координаты точек - через пробел'); for i: =1 to 3 do begin writeln('x',i,' ','y',i); readln(pts[i].x,pts[i].y); end; a: =sqr(pts[1].x)+sqr(pts[1].y); b: =sqr(pts[2].x)+sqr(pts[2].y); c: =sqr(pts[3].x)+sqr(pts[3].y); if (a=b) and (a=c) then writeln('треугольник равносторонний') else writeln('треугольник не равносторонний'); end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Назовите примеры элементов интерфейса word, общих для большинства windows-программ и таких, что есть только в программе word