Предмет: Информатика,
автор: BFPierse
Для заданной последовательности A проверить, встречается ли среди ее первых 10 символов буква s, а для последовательности В проверить, встречается ли среди ее первых 20 символов буква q
Ответы
Автор ответа:
0
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.
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.
Похожие вопросы
Предмет: Русский язык,
автор: miraseba
Предмет: Русский язык,
автор: Belka85040
Предмет: Математика,
автор: Аноним
Предмет: История,
автор: LoveMar