Ответы
Ответ дал:
1
var
str:string;
i:integer;
begin
readln(str);
for i:=1 to Length(str) do
if ( str[i] = 'П' ) OR ( str[i] = 'В' ) then
break;
writeln(str[i]);
end.
str:string;
i:integer;
begin
readln(str);
for i:=1 to Length(str) do
if ( str[i] = 'П' ) OR ( str[i] = 'В' ) then
break;
writeln(str[i]);
end.
archery:
если в строке нет таких букв то ответ не верный
Ответ дал:
0
В Паскале есть стандартная функция Pos, которая возвращает начальную позицию вхождения подстроки в строку или 0, если такое вхождение не обнаружено. С её помощью данная задача решается очень просто.
var
s:string;
ip,iv:integer;
begin
Write('Введите строку: '); Readln(s);
ip:=Pos('П',s); iv:=Pos('В',s);
if ip*iv=0 then Writeln('П или В или обе не найдены в тексте')
else
if ip<iv then Writeln('П встретилось раньше В')
else Writeln('В встретилось раньше П')
end.
Тестовое решение:
Введите строку: НА ЛУГУ ПАСЕТСЯ КОРОВА
П встретилось раньше В
var
s:string;
ip,iv:integer;
begin
Write('Введите строку: '); Readln(s);
ip:=Pos('П',s); iv:=Pos('В',s);
if ip*iv=0 then Writeln('П или В или обе не найдены в тексте')
else
if ip<iv then Writeln('П встретилось раньше В')
else Writeln('В встретилось раньше П')
end.
Тестовое решение:
Введите строку: НА ЛУГУ ПАСЕТСЯ КОРОВА
П встретилось раньше В
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
7 лет назад