Ответы
Ответ дал:
0
//Pascal ABC.NET v3.1 сборка 1172
Var
s:string;
begin
readln(s);
if pos('&',s)<>0 then writeln('Да') else writeln('Нет');
end.
Пример ввода:
A&B
Пример вывода:
Да
Var
s:string;
begin
readln(s);
if pos('&',s)<>0 then writeln('Да') else writeln('Нет');
end.
Пример ввода:
A&B
Пример вывода:
Да
Похожие вопросы
2 года назад
2 года назад
7 лет назад
7 лет назад
9 лет назад
9 лет назад
10 лет назад