М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
sashabisaev030303
sashabisaev030303
24.07.2020 03:07 •  Информатика

Известно сопротивление каждого из двух элементов электрической цепи, соединённых параллельно. Подготовить лист для расчета общего сопротивления цепи. Для того, чтобы исключить появление об ошибке, связанного с делением на ноль в случае, когда значения сопротивлений еще не заданы, в ячейках, в которых должны задаваться эти значения, условно введите 1.

👇
Открыть все ответы
Ответ:
Malitka12349
Malitka12349
24.07.2020
Var
a,str:string;
k,n,i,z,m,j,c,S,x,y,l:integer;
    begin     
            writeln('введите число');
            readln(str);     
                writeln('a ?');     
                readln(a);     
                writeln('z ?');     
                readln(z);   
                writeln('x & y');     
                readln(x,y);     
                n:=length(str);     
                     for i:=1 to n do     
                         begin       
                             if str[i]=a then           
                                   k:=k+1;           
                                   val(str[i],m,j);               
                                        if m mod z=0 then                   
                                           c:=c+1;                   
                                               if str[i]>a then                       
                                                   begin                           
                                                          val(str[i],m,j);                           
                                                          s:=s+m;                       
                                                   end;                     
                                      val(str[i],m,j);                     
                                          if (m=x)or(m=y)then                       
                                               l:=l+1;
                           end;
writeln('k: ',k,'кратное z: ',c,' s: ',s,'  кол-во x,y: ',l);
end.
4,7(55 оценок)
Ответ:
lisa17012006
lisa17012006
24.07.2020
Для того, чтобы получить редактируемый текст из его графического изображения, служат программы оптического распознавания текста (OCR - Opical Character Recognirion). Они могут быть сопряжены со сканером и тогда текст создается непосредственно после сканирования оригинала, либо работают с графическими файлами различных форматов, содержащих изображение текста. Хорошая программа сама находит на листе все, похожее на текст и даже умеет подбирать подходящее начертание и размеры шрифта. Из русскоязычных программ наиболее популярны программы ABBYY FineReader и OmniPage.
4,6(11 оценок)
Новые ответы от MOGZ: Информатика
Полный доступ к MOGZ
Живи умнее Безлимитный доступ к MOGZ Оформи подписку
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ