Var
s,ss:string;
i,j,n,k:integer;
begin
Write('Введите текст: '); Readln(s);
s:=' '+s+' ';
Write('Введите искомое слово: '); Readln(ss);
ss:=' '+ss+' ';
n:=Length(ss);
i:=Pos(ss,s); k:=0;
if i>0 then
repeat
Inc(k);
Delete(s,i,n);
i:=Pos(ss,s);
until i=0;
Writeln('Слово встречается ',k,' раз(а)')
end.
<em><u>Тестовое решение:</u></em>
Введите текст: по дороге, по тропинке, по леску пойдем
Введите искомое слово: по
Слово встречается 3 раз(а)
Цифровые носители информации - компакт-диски, дискета, карты памяти
1) 10 div 15 = 0
2) 10 div 2 = 5
3) 10 mod 2 = 0
4) 10 mod 17 = 10
5) 123 mod 10 = 3
6)123 div 10 = 12
7)1 div 2 = 0
8) 123 mod 1000 = 123
9) 100 mod 27 div 3 = 6
10) 100 div 5 mod 3 = 2
11)98725 div 1000 mod 10 = 8
<span>12)100 mod 5 div 3 = 0</span>
На экран будет выводится:
А) 45
y := 0; FOR x := 1 TO 9 do y := y + x;
В начале y=0;
Потом начинается цикл : от 1 до 9 (включительно и с шагом в единицу(+1))
X:=1;
y:=0+1; y:=1;
x:=2; y:=1;
y:=x+y; y:=2+1; y:=3 ;
x:=3;y:=3; y:=3+3; y=6;
x:=4;y:=6; y:=4+6; y=10;
и т.д. по аналогии
Б)0
y := 0; FOR x := 1 TO 5 do y := y * x; Writeln (y);
При умножение числа на 0 будет 0;
Т.к. y := 0; , то в равенстве y := y * x; , при любом значение x, y будет = 0