Придумать 10 вырожений на языке паскаля​

Информационные технологии-это процессы, методы поиска, сбора, хранения, обработки, предоставления

Термин «информационные технологии» в его современном смысле впервые появился в статье 1958 года, опубликованной в Harvard Business Review; авторы Гарольд Дж. Ливитт и Томас Л. Уислер прокомментировали, что «у новой технологии еще нет единого установленного имени. Мы будем называть это информационными технологиями (ИТ)»[источник не указан 314 дней]. Их определение состоит из трех категорий: методов обработки, применения статистических и математических методов для принятия решений и моделирования мышления более высокого порядка с компьютерных программ.

Информационные технологии начали активно развиваться с 1960-х годов, вместе с появлением и развитием первых информационных систем (ИС).

Компания IBM выпустила первый жёсткий диск в 1956 году, в качестве компонента компьютерной системы 305 RAMAC. Большинство цифровых данных сегодня по-прежнему сохраняется магнитно на жёстких дисках или оптически на носителях, таких как компакт-диски. До 2002 большинство информации хранилось на аналоговых устройствах, но в том году цифровая ёмкость превысила аналоговое устройство впервые. По состоянию на 2007, почти 94 % данных, хранящихся во всем мире, сохранилась в цифровом виде: 52 % на жёстких дисках, 28 % на оптических устройств и 11 % на цифровой магнитной ленте. Было подсчитано, что в мире ёмкость для хранения информации на электронных устройствах выросла с менее чем 3 эксабайт в 1986 году до 295 экзабайт в 2007 году, увеличиваясь вдвое примерно каждые 3 года.

Var
i,j,k:longint;
    begin
         for i:=1 to 1000 do
              for j:=1 to 1000 do       
                   for k:=1 to 10000 do             
                      if sqr(i)+sqr(j)=sqr(K)then               
                           begin                 
                                writeln(i,' ',j,' ',k);  {вывожу все тройки, можно убрать}             
                                     if i+j+k=1000 then                 
                                          begin                 
                                               writeln('! ',i,' ',j,' ',k);  {нужная тройка}                
                                                exit; {прерывание программы}                
                                          end;               
                           end;   
     end.