Так как в задании не указано, что введенное слово должно обрамляться пробелами, то код может быть такой:
var s,a:string; begin write('Введите строку : '); readln(s); write('Введите слово : '); readln(a); if(pos(a, s) <> 0) then writeln('Слово "',a,'" в строке есть') else writeln('В строке такого слова нет'); end.
Тест №1 Введите строку : Привет участникам олимпиады! Введите слово : ник Слово "ник" в строке есть
Тест №2 Введите строку : Всем привет! Введите слово : админ В строке такого слова нет
Нахождение площади труегольника: 1. Формула площади треугольника по стороне и высоте S = 1a · h2 2.Нахождение площади трекгольника по всем сторонам(Формула Герона) √S = √p(p - a)(p - b)(p - c)(все под корнем идет) 3.Формла площади трекгольника по 2-ум сторонам и углу между ними S = 1a · b · sin γ2 4.Формула нахождения площади трегольника по трем сторонам и радиусу описанной окружности S = a · b · с/4R 5.Формула площади трекгольника по трем сторонам и радиусу вписанной окружности S = p·r Нахождение площади прямоугольника: 1.Нахождение площади прямоугольника(одну сторону умножаем на другую,то есть ту которая длинная и которая короткая друг на друга) S = a · b Нахождение площади паралелограма: 1.Формула площади параллелограмма по длине стороны и высоте S = a · h 2.Формула площади параллелограмма по двум сторонам и углу между ними S = a · b · sin α Обращайся!
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку