Составить программу,определяющую какая буква слова x(первая или последняя) чаще встречается в слове y. Паскаль!!!
Ответы
Ответ дал:
0
var x,temp:string;
first,last:char;
k1,k2:integer;
begin
write ('X = ');
readln (x);
k1:=0;
k2:=0;
first:=x[1];
last:=x[length(x)];
temp:=x;
while (pos(first,temp)>0) do
begin
inc(k1);
delete (temp,pos(first,temp),1);
end;
temp:=x;
while (pos(last,temp)>0) do
begin
inc(k2);
delete (temp,pos(last,temp),1);
end;
if (k1>k2) then writeln ('First') else
if (k2>k1) then writeln ('Last') else
writeln ('Equal');
end.
first,last:char;
k1,k2:integer;
begin
write ('X = ');
readln (x);
k1:=0;
k2:=0;
first:=x[1];
last:=x[length(x)];
temp:=x;
while (pos(first,temp)>0) do
begin
inc(k1);
delete (temp,pos(first,temp),1);
end;
temp:=x;
while (pos(last,temp)>0) do
begin
inc(k2);
delete (temp,pos(last,temp),1);
end;
if (k1>k2) then writeln ('First') else
if (k2>k1) then writeln ('Last') else
writeln ('Equal');
end.
Вас заинтересует
6 лет назад
9 лет назад
9 лет назад
9 лет назад