помогите пожалуйста с 5 и 6 номерами. (нужно написать программы по схеме)
Answers & Comments
coolpandaRF№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.
Answers & Comments
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.