На паскалеДаны две строчки. Обусловьте, является ли первая строчка подстрокой второй
На паскале
Даны две строки. Обусловьте, является ли 1-ая строчка подстрокой 2-ой строки.
Входные данные
На вход подается 2 строчки длины не более 10000, состоящие только из малюсеньких букв латинского алфавита.
Выходные данные
Необходимо вывести слово yes, если 1-ая строка является подстрокой второй строки, либо слово no в неприятном случае.
Образцы
входные данные
abac
ababacaba
выходные данные
yes
2 ответа
Вадим Харкин
Program ABC;
var s, p: string;
begin
writeln('Введите 1 строчку:');
readln(s);
writeln('Введите 2 строку:');
readln(p);
if (pos(s,p) lt;gt; 0) then
writeln('Yes')
else
writeln('No');
end.
var s, p: string;
begin
writeln('Введите 1 строчку:');
readln(s);
writeln('Введите 2 строку:');
readln(p);
if (pos(s,p) lt;gt; 0) then
writeln('Yes')
else
writeln('No');
end.
Першутина
Вера
Работает и выводит всё без проблем.Сможете проверить зайдя в Паскаль и введя данный код в программку.
Васька Холотин
informatics не воспринимает
Есения Мерцедина
Не знаю в чём неувязка,но программа работает.
Анна Кочержина
Проходить 8 из 13 тестов
Вова Джупий
А мою прогу не проверяли?..
Алина Критилина
А где разница ? Единственное Вы написали без Writeln,а так программки одинаковые.
Быничкин
Кирилл
Если программа проверки автоматическая, она может принимать любой WriteLn за выходные данные
Роман Григорин
И соответственно не принимать "правильное" решение
Вера Евтимова
Я это знаю,я про то,что всё остальное у нас с Вами идиентично.
Софья Едигорян
Здесь вообще малюсенько что можно было бы поменять. В условии заместо "<>" написать "=", и поменять ветки местами
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Игорь 14 лет назад был на 8 лет моложе, чем его
Математика.
Два тела массами m1 и m2 находящие на расстоянии R друг
Физика.
В сосуде 4целых одна пятая литр воды что бы заполнить сосуд
Математика.
Двум малярам Диме И Олегу поручили выкрасить фасад дома они разделили
Разные вопросы.
найти порядковый номер 41Э если в ядре 20 нейтронов
Разные вопросы.
в ряду натуральных чисел 3, 8, 10, 24, … 18 одно
Математика.
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
Облако тегов