|
|
|
|
|
|
|
Вернуться
| 1 Дудка Андрей Аркадиевич, 15 октября 2012 г. 15:59:15 | |
|
Всьо спосибо я нашел ошибку
|
|
|
| 2 Дудка Андрей Аркадиевич, 15 октября 2012 г. 15:43:39 | |
Нет создает я проверял. У 333 задаче я нашел ошибку, но 50 по прежнему глухо. Надо смотреть на строки там чтото не то,
но я не могу найти ошибку
Вот код:
var s2,s,s3,s1:string;
i,j,l,m,sym,kk,p:longint;
begin
assign(input,'input.txt'); reset(input);
assign(output,'output.txt'); rewrite(output);
readln(s2);
readln(s);
sym:=0;
kk:=1;
s1:=s;
while kk<=length(s) do
begin
i:=1;
if (s1=s) and (kk>1) then inc(kk) else
begin
while i<=length(s2) do
begin
while (s2[i]<>s[1]) and (i<=length(s2)) do
i:=i+1;
if i+length(s)-1<=length(s2) then
begin
m:=i;
for j:=1 to length(s) do
begin
if s[j]<>s2[m] then l:=1;
m:=m+1;
end;
if l=0 then inc(sym) else
l:=0;
end;
i:=i+1;
if i>length(s2) then
begin
s3:=s[length(s)];
delete(s,length(s),1);
s3:=s3+s;
s:=s3;
end;
end;
inc(kk);
end;
end;
write(sym);
end.
|
|
|
| 3 Беляев Сергей Николаевич, 15 октября 2012 г. 15:34:34 | |
|
Очевидно, неправильная работа с файлами. Скорее всего в результате работы Вашей программы не создается файл output.txt
|
|
|
| 4 Дудка Андрей Аркадиевич, 15 октября 2012 г. 15:34:27 | |
|
Задача 50 и 333
|
|
|
| 5 Дудка Андрей Аркадиевич, 15 октября 2012 г. 15:34:01 | |
|
Задача 45 и 333.
|
|
|
Чтобы оставить сообщение необходимо зарегистрироваться и авторизоваться!
| | | |
