29баллов
Написать программу в паскале
Напишите функцию, дающую первое местоположение в строке s1 символа, встречающегося в строке s2
Ответы
Ответ дал:
0
uses crt;
var s1,s2: string;
x,y:integer;
function pos(s1,s2:string):integer;
begin
for x:=length(s1) downto 1 do
for y:=length(s2)downto 1 do
if (s1[x]=s2[y]) then pos:=x;
end;
begin
write('s1: '); readln(s1);
write('s2: '); readln(s2);
writeln(pos(s1,s2));
end.
var s1,s2: string;
x,y:integer;
function pos(s1,s2:string):integer;
begin
for x:=length(s1) downto 1 do
for y:=length(s2)downto 1 do
if (s1[x]=s2[y]) then pos:=x;
end;
begin
write('s1: '); readln(s1);
write('s2: '); readln(s2);
writeln(pos(s1,s2));
end.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад