На паскале
Даны две строки. Определите, является ли первая строка подстрокой второй строки.
Входные данные
На вход подается 2 строки длины не более 10000, состоящие только из маленьких букв латинского алфавита.
Выходные данные
Необходимо вывести слово yes, если первая строка является подстрокой второй строки, или слово no в противном случае.
Примеры
входные данные
abac
ababacaba
выходные данные
yes
Нет комментариев
Ответы
Гость Program ABC;
var s, p: string;
begin
writeln('Введите 1 строку:');
readln(s);
writeln('Введите 2 строку:');
readln(p);
if (pos(s,p) <> 0) then
writeln('Yes')
else
writeln('No');
end.
10 комментария:
Работает и выводит всё без проблем.Можете проверить зайдя в Паскаль и введя данный код в программу.
informatics не принимает
Не знаю в чём проблема,но программа работает.
Проходить 8 из 13 тестов
А мою прогу не проверяли?..
А где разница ? Единственное Вы написали без Writeln,а так программы одинаковые.
Если программа проверки автоматическая, она может принимать любой WriteLn за выходные данные
И соответственно не принимать "правильное" решение
Я это знаю,я про то,что всё остальное у нас с Вами одинаково.
Тут вообще мало что можно было бы изменить. В условии вместо "<>" написать "=", и поменять ветки местами
Работает и выводит всё без проблем.Можете проверить зайдя в Паскаль и введя данный код в программу.
informatics не принимает
Не знаю в чём проблема,но программа работает.
Проходить 8 из 13 тестов
А мою прогу не проверяли?..
А где разница ? Единственное Вы написали без Writeln,а так программы одинаковые.
Если программа проверки автоматическая, она может принимать любой WriteLn за выходные данные
И соответственно не принимать "правильное" решение
Я это знаю,я про то,что всё остальное у нас с Вами одинаково.
Тут вообще мало что можно было бы изменить. В условии вместо "<>" написать "=", и поменять ветки местами Список предметов
