Помогите пожалуйста с 5 и 6 номерами. (нужно написать программы по схеме)
Помогите пожалуйста с 5 и 6 номерами. (нужно написать программы по схеме)
Гость
Ответ(ы) на вопрос:
Гость №5
var
st1, st2: string;
T: integer;
begin
write('Строка, в которой будет произведен поиск: ');
readln(st1);
write('Что искать: ');
readln(st2);
T := pos(st2, st1);
writeln('"', st2, '" находится на позиции ', T);
end.
№6
var
st: string;
K, i: integer;
begin
write('Строка: ');
readln(st);
K := 0;
for i := 1 to length(st) do
begin
if st[i] = ',' then
K := K + 1;
end;
writeln('Кол-во запятых: ', K);
end.
Не нашли ответ?
Похожие вопросы