Textbackground(0);
writeln('"',k,'" ',position:3)
End.
{ 87. ""}
Uses crt;
var word1,word: String;
dl,n:integer;
Label 1;
Begin
Clrscr;
writeln(' ');
Readln(word1);
writeln(' , ');
Readln(word);
dl:=length(word1);
n:=pos(word,word1);
1:if n>0 then
Begin
Delete(word1,n,1);
insert(' ',word1,n);
dl:=length(word1);
if dl>0 then
Begin
n:=pos(word,word1);
Goto 1;
End
End;
Writeln(word1);
End.
{ 88. }
Uses crt;
var a,b,c,low,high,mid:integer;
Begin;
Clrscr;
writeln(' ( ENTER)');
Readln(a);
Readln(b);
Readln(c);
low:=a;
high:=a;
IF b < low THEN low:=b;
IF c < low THEN low:= c;
IF b > high THEN high:= b;
IF c > high THEN high:= c;
IF low=a THEN begin
if high=b then mid:=c;
if high=c then mid:=b;
End;
IF low=b THEN begin
if high=c then mid:=a;
if high=a then mid:=c;
End;
IF low=c THEN begin
if high=a then mid:=b;
if high=b then mid:=a;
End;
writeln(' ',low,' ', high,' ', mid);
End.
{ 89. }
Uses crt;
var dl,ch,n:integer;
text,text1:string;
Label 1;
Begin
Clrscr;
writeln(' ');
Readln(text);
ch:=1;
dl:=length(text);
n:=pos(' ',text);
1:if n>0 then
Begin
ch:=ch+1;
Delete(text,1,n);
dl:=length(text);
if dl>0 then
Begin
n:=pos(' ',text);
Goto 1;
End
End;
writeln(' ',ch,' () ');
End.
{ 90. }
Uses crt;
var dl,ch,n,i:integer;
text,text1,c:string;
Label 1;
Begin
Clrscr;
writeln(' ');
Readln(text);
dl:=length(text);
text1:='0123456789';
for i:=1 to 10 do
Begin
c:=copy(text1,i,1);
n:=pos(c,text);
1:if n>0 then
Begin
Delete(text,n,1);
insert(' ',text,n);
dl:=length(text);
if dl>0 then
Begin
n:=pos(c,text);
Goto 1;
End
End;
End;
Writeln(text);
End.
{ 91. }
Uses crt;
var dl,ch,n:integer;
text,text1:string;
Label 1;
Begin
Clrscr;
writeln(' ');
Readln(text);
dl:=length(text);
n:=pos(' ',text);
1:if n>0 then
Begin
Delete(text,n,1);
|
|
insert('.',text,n);
dl:=length(text);
if dl>0 then
Begin
n:=pos(' ',text);
Goto 1;
End
End;
Writeln(text);
End.
{92 }
uses crt;
var dl,ch,n:integer;
text,text1,c:string;
Label 1;
Begin
Clrscr;
writeln(' ');
Readln(text);
writeln(' ');
Readln(text1);
dl:=length(text);
ch:=0;
c:=copy(text,1,1);
if c=text1 then ch:=ch+1;
n:=pos(' ',text);
1:if n>0 then
Begin
c:=copy(text,n+1,1);
if c=text1 then ch:=ch+1;
Delete(text,1,n);
dl:=length(text);
if dl>0 then
Begin
n:=pos(' ',text);
Goto 1;
End
End;
writeln(ch,' () ',text1);
End.
{ 93. }
Uses crt;
var i,size,max:integer;
nam:array[1..10] of string;
bal:array[1..10] of integer;
Begin
Clrscr;
writeln(' ');
Readln(size);
writeln(' ');
Readln(max);
FOR i:= 1 TO size do
Begin
Clrscr;
writeln(' ');
readln(nam[i]);
writeln(' ');
readln(bal[i])
End;
Clrscr;
writeln('');
FOR i:= 1 TO size do
Begin
writeln(nam[i],' ',bal[i]);
End;
FOR i:= 1 TO size do
Begin
IF bal[i] = max THEN writeln(nam[i], ' , -',max);
End;
End.
{ 94. }
Uses crt;
var i,max,size:integer;
winer:string;
nam:array[1..10] of string;
bal:array[1..10] of integer;
Begin
Clrscr;
writeln(' - ');
Readln(size);
FOR i:= 1 TO size do
Begin
Clrscr;
writeln(' ');
readln(nam[i]);
writeln(' ');
readln(bal[i]);
End;
max:= bal[1];
writeln('');
FOR i:= 1 TO size do
Begin
writeln(nam[i],' ',bal[i]);
End;
FOR i:= 1 TO size do
Begin
IF bal[i] > max THEN
Begin
max:= bal[i]; winer:= nam[i];
End;
End;
writeln(winer, ' . ', max);
End.
{95. }
Uses crt;
var numi,pricei,numii,priceii,numiii,priceiii,numiv,priceiv:integer;
Begin
Clrscr;
writeln(' I - Enter');
Readln(numi);
Readln(pricei);
Clrscr;
writeln(' II - Enter');
Readln(numii);
Readln(priceii);
Clrscr;
writeln(' III - Enter');
Readln(numiii);
Readln(priceiii);
Clrscr;
writeln(' IV - Enter');
Readln(numiv);
Readln(priceiv);
Clrscr;
writeln(' ', '- ', ' . ', '.');
|
|
writeln('I ', numi, pricei:12, numi * pricei:24);
writeln('II ', numii, priceii:12, numii * priceii:24);
writeln('III ', numiii, priceiii:12, numiii * priceiii:24);
writeln('IV ', numiv, priceiv:12, numiv * priceiv:24);
writeln(' ', numi * pricei + numii * priceii + numiii * priceiii + numiv * priceiv);
End.
{96. }
Uses crt;
var i,k,size:integer;
nam:array[1..20] of string;
inf:array[1..20] of integer;
mat:array[1..20] of integer;
Begin
Clrscr;
writeln(' ');
Readln(size);
FOR i:= 1 TO size do
Begin
Clrscr;
writeln(' , ., .');
readln(nam[i]);
readln(inf[i]);
readln(mat[i]);
End;
Clrscr;
writeln(' ');
FOR i:= 1 TO size do
Begin
IF inf[i] <= 2 THEN writeln(nam[i]);
End;
writeln(' ');
FOR i:= 1 TO size do
Begin
IF mat[i] <= 2 THEN writeln(nam[i]);
End;
writeln('');
FOR i:= 1 TO size do
Begin
IF (mat[i] = 5) AND (inf[i] = 5) THEN writeln(nam[i]);
End;
writeln(' ');
FOR i:= 1 TO size do
Begin
IF (mat[i] = 2) OR (inf[i] = 2) THEN k:= k + 1;
End;
Writeln(k);
End.
{ 97. }
Uses crt;
var i,size:integer;
nam:array[1..10] of string;
tick:array[1..10] of integer;
mark:array[1..10] of integer;
markp:array[1..10] of string;
Begin
Clrscr;
writeln(' - ');
Readln(size);
FOR i:= 1 TO size do
Begin
Clrscr;
writeln(' , , , ( ENTER)');
readln(nam[i]);
readln(tick[i]);
readln(mark[i]);
readln(markp[i]);
End;
Clrscr;
FOR i:= 1 TO size do
Begin
writeln(nam[i],' - ',tick[i],' -',mark[i]);
End;
FOR i:= 1 TO size do
Begin
IF (mark[i] = 5) AND (markp[i] = '') THEN writeln(nam[i], ' ', tick[i], mark[i]:2, ' ()');
End;
End.
{ 98. }
Uses crt;
var i,max,rr,vv,size:integer;
vnam1,vnam2:string;
nam1:array[1..10] of string;
nam2:array[1..10] of string;
r:array[1..10] of integer;
v:array[1..10] of integer;
Begin
Clrscr;
writeln(' - ');
Readln(size);
FOR i:= 1 TO size do
Begin
Clrscr;
writeln(' , , , Enter');
readln(nam1[i]);
readln(nam2[i]);
readln(r[i]);
readln(v[i]);
End;
Clrscr;
max:= r[1];
FOR i:= 1 TO size do
Begin
IF r[i] > max THEN
Begin
vnam1:= nam1[i];
vnam2:= nam2[i];
rr:= r[i];
vv:= v[i];
max:=r[i];
End;
End;
Clrscr;
writeln(' ');
writeln('', '':10, '':10, '':10);
writeln(vnam1, vnam2:12, rr:12, vv:12);
End.