Для заданной последовательности a проверить, встречается ли среди ее первых 10 символов буква s, а для последовательности в проверить, встречается ли среди ее первых 20 символов буква q
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.
1 кодирование 2 Систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д. 3. нахождение информации в глобальной сети, на сервере и т. д. 4. Форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д. 5. К математическому типу и текстовому. 6. Они могут быть сделаны на разных текстовых редакторах. 7. По алфавиту - фамилии в школьном журнале, файлы, документы.. В порядке убывания - цифры, числа... в хронологической последовательности - даты, события, файлы, документы.
1 кодирование 2 Систематизация это распределение файлов "по полочкам" - по дате добавления, по алфавиту и т. д. 3. нахождение информации в глобальной сети, на сервере и т. д. 4. Форма представления бывает разной - в виде текста , в виде таблицы, в виде картинки и т. д. 5. К математическому типу и текстовому. 6. Они могут быть сделаны на разных текстовых редакторах. 7. По алфавиту - фамилии в школьном журнале, файлы, документы.. В порядке убывания - цифры, числа... в хронологической последовательности - даты, события, файлы, документы.
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.