Десять плюс одиннадцать плюс двенадцать плюс четырнадцать плюс пятнадцать умножить на девятнадцать и разделить на пять равно.....
Var x,y,z:string; k,p,l:integer;
begin
writeln('Введите строку:');
readln(x);
writeln('Введите слово:');
readln(y);
z:=x; k:=0;
l:=length(y);
p:=pos(y,x);
while p>0 do
begin
k:=k+1;
delete(z,p,l);
p:=pos(y,z);
end;
writeln('k = ',k);
end.
Пример:
Введите строку:
мама мыла раму, мама мыла окно.
Введите слово:
мама
k = 2
А) 84953<span> = 10</span>100101111011001, 834<span> = 1</span>101000010, 55<span> = </span>110<span>111
б) </span>1462<span> = 1</span>100110010, 71<span> = </span>111001, 634<span> = </span>110011<span>100
в) </span>E93F76<span> = </span>111010010011111101110<span>110,
</span>59D45<span> = 1</span>011001110101000101
94553<span> = 10</span>010100010101010<span>011</span>
Тест к программе
a= -1 b=2 c=3 s=1.5 (промежуточные m1 m2 m3 сами просчитаете и проверьте)
a=4 b= - 5 c=0 s = 8