ABCpaskal: Дана строка символов.Определить,можно ли из символов данной строки получить слово лес??? Помогите пожалуйста)))!!!
Ответы на вопрос
Ответил yuliagal
0
var
s: string;
begin
readln(s);
if (Pos('л',s)>0) and (Pos('е',s)>0) and (Pos('с',s)>0) then
writeln('Можно') else writeln('Нельзя')
end.
s: string;
begin
readln(s);
if (Pos('л',s)>0) and (Pos('е',s)>0) and (Pos('с',s)>0) then
writeln('Можно') else writeln('Нельзя')
end.
Ответил SkyBy
0
Тут на усмотрение создателя задания, если он считает, что всё правильно, у меня нет вопросов.
Ответил chora
0
в задании сказано маленькими буквами
Ответил yuliagal
0
вот и разобрались )
Ответил SkyBy
0
На будущее, пишите все дополнения к заданию, чтобы не было разногласий. Удачи.
Ответил SkyBy
0
Несомненно, пользователь Yuliagal правильно сделала задание. Я оставлю свой ответ здесь, если вдруг кто-нибудь не понял, как это задание можно выполнить.
var st: string; l, e, s: integer;
begin
readln(st);
l := pos('л', st);//Находим позицию символа л
e := pos('е', st);//Находим позицию символа е
s := pos('с', st);//Находим позицию символа с
if (l = 0) or (e = 0) or (s = 0) then writeln('Составить слово лес нельзя.'); //Если символ не был найден, то ему присваивается значение равное 0, следовательно, дальнейшее выполнение программы бессмысленно.
if (l > 0) and (e > 0) and (s > 0) then writeln('Можно составить слово: ', copy(st, l, 1) + copy(st, e, 1) + copy(st, s, 1)); //Если символ найден, ему присваивается значения, равное позиции в строке. Далее выводим на печать символы, расположенные в этих позициях.
end.
Еще раз повторюсь, решение Yuliagal верное, и самое короткое.
var st: string; l, e, s: integer;
begin
readln(st);
l := pos('л', st);//Находим позицию символа л
e := pos('е', st);//Находим позицию символа е
s := pos('с', st);//Находим позицию символа с
if (l = 0) or (e = 0) or (s = 0) then writeln('Составить слово лес нельзя.'); //Если символ не был найден, то ему присваивается значение равное 0, следовательно, дальнейшее выполнение программы бессмысленно.
if (l > 0) and (e > 0) and (s > 0) then writeln('Можно составить слово: ', copy(st, l, 1) + copy(st, e, 1) + copy(st, s, 1)); //Если символ найден, ему присваивается значения, равное позиции в строке. Далее выводим на печать символы, расположенные в этих позициях.
end.
Еще раз повторюсь, решение Yuliagal верное, и самое короткое.
Новые вопросы