Инструмент с его можно сверлить отверстия что это?

Это дрель ну или

Дрель ,  дрель-шуруповерт   или  перфоратор

Var     s: string;     i: integer;     sum: real;     c: byte; begin sum: =0; write('введите строку: '); readln(s); for i: = 1 to length(s) do       if ('1'< =s[i])and(s[i]< ='9') then             begin             case s[i] of             '1': c: =1;             '2': c: =2;             '3': c: =3;             '4': c: =4;             '5': c: =5;             '6': c: =6;             '7': c: =7;             '8': c: =8;             '9': c: =9;             end;             if i mod c = 0 then sum: =sum+c;             end; writeln('sum = ',sum); end.

Щелкните слайд, на который хотите добавить фоновый цвет. выберите конструктор  > стили фона  > формат фона. выберите заливка  > сплошная заливка. нажмите кнопку цвет  и выберите нужный цвет. чтобы увидеть другие цвета, щелкните другие цвета, а затем выберите готовый вариант на вкладке обычные или создайте собственный на вкладке спектр. пользовательские цвета и цвета на вкладке обычные не обновляются при последующем изменении тема документа. выполните одно из указанных ниже действий. чтобы применить цвет только к выбранным , выберите команду закрыть. чтобы применить цвет ко всем презентации, выберите команду применить ко всем.