В программе предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет.
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
В EXCEL заполни первый столбец, как показано на рисунке
В ячейку B1 занеси формулу, как показано в строке формул
Корень будет на том промежутке, где функция МЕНЯЕТ знак, у нас это промежутки:
-3,00 -2,50
0,00 0,50
и
2,50 3,00
Теперь сделай эти промежутки "МЕЛЬЧЕ", например
-3,0
-2,9
-2,8 и т.д и опять смотри, где функция СМЕНИТ знак....
И так далдьше
7горшков по 8 литров и 1 горшок 4 литра ....
<span><span>2 : if ((year mod 4) = 0) and ((year mod 400) <> 0) then</span><span> DneyVMecyace := 29</span><span>
else</span><span>
DneyVMecyace := <span>28
вот
</span></span></span>
Такое число для 3 разрядных чисел одно, это 512
Sub amstrong()
ctroka = 2
For i = 100 To 999
N1 = i \ 100
N2 = (i - 100 * N1) \ 10
N3 = i - 100 * N1 - 10 * N2
If (N1 + N2 + N3) ^ 3 = i Then
Cells(ctroka, 2) = i
ctroka = ctroka + 1
End If
Next i
<span>End Sub</span>