//Мне скучно, потому я пишу сомнительный код по примеру Эникея //PascalABC.NET 3.2 сборка 1318
Var s,t,snew,curr,add,currsave:string; i,j,flag:integer; begin readln(s); readln(t); //s=lowcase(s); t:=lowercase(t); while pos(' ',s)<>0 do begin flag:=0; curr:=copy(s,1,pos(' ',s)); currsave:=curr; if pos(t,lowercase(curr))<>0 then begin flag:=1; delete(curr,pos(t,lowercase(curr)),length(t)); for j:=1 to length(curr) do if ((curr[j]>='a') and (curr[j]<='я')) or ((curr[j]>='А') and (curr[j]<='Я')) or ((curr[j]>='a') and (curr[j]<='z')) or ((curr[j]>='A') and (curr[j]<='Z')) then flag:=0; end; if flag=1 then snew+=curr else snew+=currsave; delete(s,1,pos(' ',s)); end; curr:=s; currsave:=curr; flag:=0; if pos(t,lowercase(curr))<>0 then begin flag:=1; delete(curr,pos(t,lowercase(curr)),length(t)); for j:=1 to length(curr) do if ((curr[j]>='a') and (curr[j]<='я')) or ((curr[j]>='А') and (curr[j]<='Я')) or ((curr[j]>='a') and (curr[j]<='z')) or ((curr[j]>='A') and (curr[j]<='Z')) then flag:=0; end; if flag=1 then snew+=curr else snew+=currsave; writeln(snew); end.
Пример ввода: Который из всех котов кот съел мясо Пример вывода: Который из всех котов съел мясо
К примеру a,b,c - размеры рации d,e,f - чемодана размеры упорядочены по возрастанию(УПОРЯДОЧЬ!) тогда если a>=d and b>=e and c>=f не Помещается иначе да
просто с телефона каким-то образом обрезалось всё что я писал
write('Возраст Антона = '); readln(a); write('Возраст Бориса = '); readln(b); write('Возраст Виктора = '); readln(v); writeln;
if (a>b)and(a>v) then writeln('Антон старше всех.'); if (b>a)and(b>v) then writeln('Борис старше всех.'); if (v>a)and(v>b) then writeln('Виктор старше всех.');
if (a=b)and(a>v) then writeln('Антон и Борис старше Виктора'); if (a=v)and(a>b) then writeln('Антон и Виктор старше Бориса'); if (b=v)and(b>a) then writeln('Борис и Виктор старше Антона');
if (a=b)and(a=v) then writeln('Антон,Борис и Виктор одного возраста'); end.
Var a,b,am,nod,bb:integer; begin readln(a); writeln('--------'); readln(b); am:=a mod b; bb:=b; while am*b<>0 do if am>b then am:=am mod b else b:=b mod am; nod:=am+b; writeln(a div bb,' ',a mod bb div nod,'/',bb div nod); end.