Сколько раз слово k повторяется в тексте str?
---
program ab;
var str,str2,k:string[50];
m,i,n,d,c:integer;
begin
c:=0;
read(str,k);
n:=pos(k,str);
d:=length(str); m:=length(k);
for i:=n to m do
begin
if copy(str,i,m)=str then c:=c+1; end;
writeln(c:2);
end.
---
Проблема в вводе данных.
Ввожу текст и жму Энтер и всё вылетает в код программы(программа закончила работу и вывела нулевой результат). Я ввел только str, а программа не дала ввести k и продолжила сама пахать. В чем дело?
Примечание:
Извините. Код неправильный. Сейчас перепишу
Примечание:
Хотя.. Вроде, все верно
Примечание:
program ab;
var str,k:string[50];
m,i,n,d,c:integer;
begin
c:=0;
read(str);
read(k);
n:=pos(k,str);
d:=length(str); m:=length(k);
for i:=n to m do
begin
if copy(str,i,m)=k then c:=c+1; end;
writeln(c:2);
end.
Примечание:
Теперь выдает не нуль, а 1. Все-равно после энтера не дает ввести другую строку(K)
Примечание:
опять ошибки наделал...
---
program ab;
var str,k:string[50];
m,i,n,d,c:integer;
begin
c:=0;
read(str);
read(k);
n:=pos(k,str);
d:=length(str); m:=length(k);
for i:=n to d do
begin
if copy(str,i,m)=k then c:=c+1; end;
writeln(c:2);
end.
Примечание:
спасибо. ошибки сейчас гляну у себя
RPI.su - самая большая русскоязычная база вопросов и ответов. Наш проект был реализован как продолжение популярного сервиса otvety.google.ru, который был закрыт и удален 30 апреля 2015 года. Мы решили воскресить полезный сервис Ответы Гугл, чтобы любой человек смог публично узнать ответ на свой вопрос у интернет сообщества.
Все вопросы, добавленные на сайт ответов Google, мы скопировали и сохранили здесь. Имена старых пользователей также отображены в том виде, в котором они существовали ранее. Только нужно заново пройти регистрацию, чтобы иметь возможность задавать вопросы, или отвечать другим.
Чтобы связаться с нами по любому вопросу О САЙТЕ (реклама, сотрудничество, отзыв о сервисе), пишите на почту [email protected]. Только все общие вопросы размещайте на сайте, на них ответ по почте не предоставляется.