program n_1; type nazw = array[0..9] of String[15]; const ed : nazw = ('ноль','один','два','три','четыре','пять','шесть','семь','восемь','девять'); des: nazw = ('','десять','двадцать','тридцать','сорок','пятьдесят', 'шестьдесят','семьдесят','восемьдесят','девяносто'); sot: nazw = ('','сто','двести','тристо','четыресто','пятьсот','шестьсот','семьсот','восемьсот','девятьсот'); dd : nazw = ('','одинадцать','двенадцать','тринадцать','четырнадцать','пятнадцать', 'шестнадцать','семнадцать','восемьнадцать','девятнадцать'); var s,d,e,x : Integer; st : String; Begin Write('Введите число [0..1000] :'); Readln(x); if x=1000 then st:='тысяча' else begin s:= x div 100; x:=x mod 100; st:=sot[s]; d:= x div 10; e:=x mod 10; if (d=1) and (e<>0) then st:=st+dd[e] else st:=st+des[d]+ed[e]; end; writeln(st); End.
Если говорить "железе", то это будут: материнская плата, центральный процессор, видео процессор, внутренняя память, внешняя память ну и устройства ввода-вывода информации (монитор, дисковод, клавиатура мышка). Это компоненты как раз-таки являются кастомизируемыми, можно поменять определенный элемент на другой, но при этом нужно учитывать т.н "форматы" эти компонентов, например для процессоров это соккеты,у ОЗУ - это типы DDR2 или DDR3 и еще учесть возможности остальных компонентов ПК. При слабом процессоре не будет большого смысла сильно увеличивать ОЗУ или при не самой новой мат.платы ставить процессор, который может сжечь его:) На ноутбуках дела обстоят куда сложнее, чтобы поменять тот или иной компонент придется сильно попотеть, лано ОЗУ или жесткий диск, но такие элементы как ЦП и ГП, которые буквально вклеены в мат.плату поменять трудновато:) да и выйдет дороже. И при этом, компоненты ПК и ноутбука отличаются друг от друга, в основном размерами и "форматом", что уже делает их не совместимыми.
Var ar:array[1..n] of integer; i,c:integer; begin randomize; readln(c); writeln('Array:'); for i:=1 to n do begin ar[i]:=random(-10,10); write(ar[i]:4); end; for i:=1 to n do if (ar[i]>0) and (ar[i]>c) then begin ar[i]:=-ar[i]; swap(ar[i],ar[2]); break; end; writeln; writeln('Final array:'); for i:=1 to n do write(ar[i]:4); end.
//2 Var se:set of char; s:string; i,j,k:integer; begin se:=['0','1','2','3','4','5','6','7','8','9']; readln(s); var ars:=s.Split; for i:=0 to ars.Length-1 do begin for j:=1 to length(ars[i]) do if ars[i][j] in se then inc(k); writeln(ars[i],':',k); k:=0; end; end.
program n_1; type nazw = array[0..9] of String[15]; const ed : nazw = ('ноль','один','два','три','четыре','пять','шесть','семь','восемь','девять'); des: nazw = ('','десять','двадцать','тридцать','сорок','пятьдесят', 'шестьдесят','семьдесят','восемьдесят','девяносто'); sot: nazw = ('','сто','двести','тристо','четыресто','пятьсот','шестьсот','семьсот','восемьсот','девятьсот'); dd : nazw = ('','одинадцать','двенадцать','тринадцать','четырнадцать','пятнадцать', 'шестнадцать','семнадцать','восемьнадцать','девятнадцать'); var s,d,e,x : Integer; st : String; Begin Write('Введите число [0..1000] :'); Readln(x); if x=1000 then st:='тысяча' else begin s:= x div 100; x:=x mod 100; st:=sot[s]; d:= x div 10; e:=x mod 10; if (d=1) and (e<>0) then st:=st+dd[e] else st:=st+des[d]+ed[e]; end; writeln(st); End.