Excel дано трехзначное число. определить, входит ли в него цифра 4

как гласит , первый прототип современной мышки появился в 50-х годах прошлого века. клавиатуры гораздо более длинна и извилиста. она началась гораздо раньше самого компьютера – с изобретения печатной машинки.

мышки

как гласит , первый прототип современной мышки появился в 50-х годах прошлого века. создали его в рамках секретного военного проекта под названием datar (digital automated tracking and resolving system) канадские инженеры компании ferranti electric, которая имела контракт с канадскими вмс на разработку компьютеризованной радарной сети. системе, над которой они работали, требовалось устройство, с которого оператор мог перемещать точку на экране радара. решили эту два инженера-разработчика – том крэнстон и фред лонгстафф, создав так называемый трекбол, в котором в качестве шара был использован канадский шар для боулинга (в отличие от американского он более лёгкий и не имеет отверстий для пальцев). в ходе работ было сделано 9 подобных экспериментальных устройств. проект, малой частью которого и являлся трекбол, хоть и произвёл впечатление на военных, но денег для дальнейшего развития не получил (кстати, на проект в целом было потрачено около порядка 2 млн. долларов) и был "убран на полку". "изобретение трекбола опередило время", – сказал том крэнстон в одном из своих интервью газете toronto star weekly. а так как это был сверхсекретный проект, то более десяти лет о нём знали только в узком кругу военных, а инженеры не смогли запатентовать свою технологию.

клавиатуры

клавиатуры, в отличие от мышки, гораздо более длинна и извилиста. извилиста хотя бы потому, что клавиатуры развиваются до сих пор, и причём не в плане устройства или там, аппаратной начинки, а в плане удобства.

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

а вот в 1863 году уже появился предок всех современных печатных машин. изобрели её американцы кристофер лехтем шоулз (christopher sholes) и самуэль суле (samuel soule), что характерно, оба – бывшие типографы. правда, поначалу они придумали устройство для нумерования страниц в счётных книгах, но потом познакомились с карлосом глиденом, который подсказал им очевидную вроде бы идею – построить на этом же принципе машину, печатающую слова.

источник:

работает на 1000 элементов,нужно узнать диапазон n,элементы я так понял рандомные,если вводятся с клавиатуры то просто убираем randomize и пишем вместо присваивания (mas[i]: =random(19)-10; )пишем read(который в коментах)

label l;

var

  mas: array[1..1000] of longint;

  n,i: longint;

begin

  readln(n);

  randomize;

  for i: =1 to n do

  begin  

    mas[i]: =random(19)-10;

  //read(mas[i]);

    write(mas[i],' ');

  end;

  for i: =n-4 to n do

  begin

    if mas[i] > 0 then

    begin  

      mas[i]: =mas[i]-2*mas[i];

      goto l;

    end;

    if mas[i] < 0 then

      mas[i]: =abs(mas[i]);

    l:

  end;

  writeln;

  for i: =1 to n do

    write(mas[i],' ');

end.