ОС Windows более распространена, потому что небольшая компания Майкрософт вовремя и удачно предложила свою новую операционную систему DOS гиганту IBM, который всё же решил снизойти до рынка Персональных Компьютеров и создал в итоге целую архитектуру IBM PC, открытую и общедоступную. Т.е. компьютеры по таким стандартам, периферию и ПО к ним могла делать любая фирма, а не только IBM. В то время это было необычно. "IBM PC совместимых" компьютеров стало ооочень много в мире и практически на всех стояла MS-DOS, а затем и Windows.
1 задача program proga; var st,st2:string; i:Integer; begin writeln('Введите число'); readln(st); for i:=1 to length(st) do begin st2:=st[i]; write(st2,' '); end; end. 2 задача program proga2; var st,st2:string; i,a:Integer; begin writeln('Введите возраст'); readln(a); if a>120 then writeln('Неверные данные'); if a=1 then writeln(a,' год'); if (a>1) and (a<5) then writeln(a,' года'); if((a mod 10 = 1) and (a div 10 <> 0 or 11 )) then writeln(a,' год'); if (a>=5) and (a mod 10 <> 2 or 3 or 4)and (a div 10 <> 10) then writeln(a,' лет'); if (a<=5) and (a mod 10 = 2 or 3 or 4)and (a div 10 = 10) then writeln(a,' года '); if(a>104) and (a<110)then writeln(a,' лет'); end.
