В программе предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет.
const m=3;
var s:string;
sl:array[1..m] of string=('ЗНАЧИТ', 'ВОТ', 'АВТОМОБИЛЬ');
n:array[1..m] of integer;
i:integer;
procedure pr(s1,s2:string; var k:integer);
var l,p:integer;
begin
s1:=' '+s1+' ';
l:=length(s2);
k:=0;
p:=pos(s2,s1);
while p>0 do
begin
if (s1[p-1]=' ')and(s1[p+l]=' ') then k:=k+1;
delete(s1,1,p+l);
p:=pos(s2,s1);
end;
end;
begin
writeln('Введите текст:');
readln(s);
for i:=1 to m do
begin
pr(s,sl[i],n[i]);
writeln(sl[i],' - ',n[i]);
end;
end.
Пример (слов меньше 40):
Введите текст:
ЗНАЧИТ ТАК ВОТ АВТОМОБИЛЬ РАЗ ВОТ АВТОМОБИЛЬ ДВА ВОТ АВТОМОБИЛЬ ТРИ
ЗНАЧИТ - 1
ВОТ - 3
АВТОМОБИЛЬ - 3
0,5мбайт=512кбайт
1,5Гбайт=3153641472байт
4Мбайт=2053152байт
256байт=2048бит
1,5кбайт=1536бит
Рекомендация- это предупреждение, дополнение к чему-то, а стандарт должны выполнять все
часть схемы передающей информацию-канал
Var value, sigma, counter : integer;
<span>Begin
counter := 0;
</span><span>value := 0;
</span><span>sigma := 0;</span>
<span> while counter < 50 Do
</span><span> begin</span>
<span> value := value + 2;
</span><span> sigma := sigma + value;</span>
counter := counter + 1;
<span> end;</span>
<span> writeln(sigma);
</span><span> readln();
</span><span>End.
</span>