Сколько раз исполнится цикл: for x: =1 to 15 do if x mod 2=1 then s: =s+1

Числа некратные 2 от 1 до 15: 1,3,5,7,9,11,13,15 - 8 раз.

Const n=4; var s: array[1..n] of string; i,j,k,max: integer; mn: set of byte; begin for i: =1 to n do readln(s[i]); max: =0; mn: =[]; for i: =1 to n do   begin   k: =0;   for j: =1 to length(s[i]) do   if s[i][j] in ['+','-','*','/'] then k: =k+1;   if k> max then begin max: =k; mn: =[i]; end   else if k=max then mn: =mn+[i];   end; writeln('max = ',max); for i: =1 to n do   if not(i in mn) then writeln(s[i]);   end. пример: 2*3+4 = 10 1024/32 = 32 5*3-2=123 8+5+7=90 max = 21024/32 = 32

Microsoft windows   -  ibm   тәрізді  компьютерлерде  графикалық интерфейсті   қолдануды кеңінен жүзеге асырған, қазіргі заман талабына сай жасалған  операциялық орта . оның ған нұсқалары түрінде windows nt, windows 2000 сияқты  операциялық жүйелер   кеңінен қолданылуда. жалпыhistorytimelinelistcomparisonusage shareadvocacyhobbyist developmentkernelarchitecturesmonolithicmicrokernelexokernelhybridкомпоненттеріuser spacemicrokernelloadable kernel moduledevice driverprocess managementконцепцияларыprocessprocess control blockinterruptthreadcontext switchscheduling algorithmscomputer multitaskingpreemptiveround-robinfixed-priority preemptivemultilevel feedback queueshortest job nextmemory management  andresource  protectionsecurity ringsmemory protectionvirtual memorypagingsegmentation fault / bus errorgeneral protection faultlistamigaosbeosbsddosgnulinuxmac osmorphosos/2reactossolarisunixwindowsmiscellaneous conceptsboot loaderlive cdlive usbpxeapivirtual file systemvirtual tape librarycomputer networkos shell  clituiguivui  hal