Для заданной последовательности A проверить, встречается ли среди ее первых 10 символов буква s, а для последовательности В проверить, встречается ли среди ее первых 20 символов буква q
Для заданной последовательности A проверить, встречается ли среди ее первых 10 символов буква s, а для последовательности В проверить, встречается ли среди ее первых 20 символов буква q
Гость
Ответ(ы) на вопрос:
Гостьvar
a,b: string;
i: integer;
ka,kb: boolean;
begin
readln(a);
readln(b);
for i:=1 to 10 do
if a[i]='s' then ka:= true;
if ka then writeln('s in A');
for i:=1 to 20 do
if b[i]='q' then kb:= true;
if kb then writeln('q in B')
end.
Не нашли ответ?
Похожие вопросы