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

March 2022 1 19 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

delfi razrabotat proekt na osnove gotovoj specifikacii v kotorom dobavlyat str

1 sostavit programmu vychisleniya 2 oj 3 ej i 4 oj stepeni chisla a i vozvrasheni

ochen nuzhna pomoshprogramma paskal zadanie 1 v procedure 1 sozdat

pomogiteochen nuzhna pomoshprogramma paskal v procedu

v paskale v massive est nulevye elementy vydat na ekran ih

y2x24 najti ploshad

dany 2 stroki simvolov poluchit novuyu stroku putem slozheniya 2 h strok v novoj

dana stroka simvolov opredelit chislo simvolov v stroke esli eto chislo bolshe

dana stroka simvolov opredelit chislo simvolov v stroke esli eto chislo menshe

nuzhno delphi proverit mozhet li byt postroen kakoj libo treugolnik po vveden

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

Helpful Links

Helpful Social