Построить таблицы. можно написать на листочке и в ответах скинуть скрин. ​

1:

program prog;

var i,n,s,a:integer;

var chk:boolean;

begin

   chk:=False;

   s:=1;

   write('Введите количество вводимых чисел: '); readln(n);

   for i:=1 to n do

   begin

       write('Введите ', i, '-е число: '); readln(a);

       if i mod 2 = 0 then

       begin

           s:=s*a;

           chk:=True;

       end;

   end;

   if chk = False then s:=0;

   write('Произведение чётных членов введённой последовательности равно ', s);

end.

2:

program fib;

var

   F1,F2,n,i :Integer;

begin

   write('Введите количество чисел Фибоначчи: '); readln(n);

   F1:=1;

   F2:=1;

   For i:=1 to n do

   begin

       if i>2 then

       begin

           F1:=F1+F2;

           F2:=F1-F2;

       end;

       write(F1, ' ');

   end;

end.

Microsoft Windows - IBM тәрізді компьютерлерде графикалық интерфейсті қолдануды кеңінен жүзеге асырған, қазіргі заман талабына сай жасалған операциялық орта. Оның дамытылған нұсқалары түрінде Windows NT, Windows 2000 сияқты операциялық жүйелер кеңінен қолданылуда.
shareAdvocacyHobbyist іUser spaceMicrokernelLoadable kernel moduleDevice driverProcess control switchScheduling algorithmsComputer -robinFixed-priority preemptiveMultilevel feedback queueShortest job nextMemory management and
resource protectionSecurity ringsMemory protectionVirtual memoryPagingSegmentation fault / Bus errorGeneral protection OSMorphOSOS/2 conceptsBoot loaderLive CDLive USBPXEAPIVirtual file systemVirtual tape libraryComputer networkOS shell CLITUIGUIVUI HAL