Если взглянуть на мировую историю, то становится понятным, что человечество постоянно развивается, улучшая технологии, обогащая свой опыт и знания. И то, что ещё недавно казалось чем-то невероятным, уже через пару десятков лет воспринимается как нечто вполне обыденное.Именно так компьютеры, появившись сравнительно недавно, прочно вошли в нашу повседневную жизнь, точно так же, как полиэтиленовые пакеты или телевидение. Сегодня не иметь дома этого высокотехнологичного устройства считается едва ли не дурным тоном. Хотя для многих вопрос о том, зачем же нужен ПК, до сих пор остаётся открытым.В первую очередь необходимо вспомнить о том, что эта железная коробка для немалой части населения является единственным источником заработка. Безусловно этому ещё одно изобретение человечества – Интернет. Виртуальный мир предлагает пользователям самые разные возможности заработка, от написания текстов до создания или продвижения сайтов. Достаточно много специалистов, которые прекрасно себя чувствуют в статусе фрилансеров и занимаются такими вещами, как: проведение онлайн-обучения, разработка бренда компании и многими другими.
Var a,str:string; k,n,i,z,m,j,c,S,x,y,l:integer; begin writeln('введите число'); readln(str); writeln('a ?'); readln(a); writeln('z ?'); readln(z); writeln('x & y'); readln(x,y); n:=length(str); for i:=1 to n do begin if str[i]=a then k:=k+1; val(str[i],m,j); if m mod z=0 then c:=c+1; if str[i]>a then begin val(str[i],m,j); s:=s+m; end; val(str[i],m,j); if (m=x)or(m=y)then l:=l+1; end; writeln('k: ',k,'кратное z: ',c,' s: ',s,' кол-во x,y: ',l); end.
