Дан текст. Определить, сколько раз в тексте встречается подстрока, значение кото...

March 2022 1 28 Report

Дан текст. Определить, сколько раз в тексте встречается подстрока, значение которой введено с клавиатуры.Нужен паскаль!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answers & Comments

Студэнt //FPC 2.6.4
var
s, s1: string;
i: integer;
begin
writeln ('Текст: ');
readln (s);
writeln ('Подстрока: ');
readln (s1);
i:=0;
while pos(s1, s)>0 do
begin
inc (i);
delete (s, pos(s1, s), length(s1));
end;
writeln (i);
readln;
end.

0 votes Thanks 0

katyagarnaga а как лутчше проверить

Answers & Comments

Делфи Разработать проект на основе готовой спецификации, в котором добавлять стр...

1. Составить программу вычисления 2-ой, 3-ей и 4-ой степени числа A и возвращени...

Очень нужна помощь!!!!!!!!!Программа паскаль! Задание №1 В процедуре №1 создать ...

ПОМОГИТЕ!!!!!!!!!!!!!!!!!Очень нужна помощь!!!!!!!!!Программа паскаль! В процеду...

В ПАСКАЛЕ !!!!!!!!!!!!!!!!! В массиве есть нулевые элементы. Выдать на экран их ...

y^2+x^2=4 найти площадь...

Даны 2 строки символов. Получить новую строку путем сложения 2-х строк. В новой ...

Дана строка символов. Определить число символов в строке. Если это число больше ...

Дана строка символов. Определить число символов в строке. Если это число меньше ...

НУЖНО Delphi. Проверить, может ли быть построен какой-либо треугольник по введен...

рекомендуемые вопросы

Helpful Links

Helpful Social