Var
s, sl, sc: string;
i, k: integer;
begin
write('Введите текст ');
readln(s);
write('Введите слово ');
readln(sl);
s:=' '+s+' ';
<span> sl:=' '+sl+' ';</span>
for i := 1 to length(s) - length(sl) + 1 do
begin
sc := copy(s, i, length(sl));
if sc = sl then inc(k);
end;
if k = 0 then writeln('Не встречается')
else writeln('Встречается ', k, ' раз');
end.
Если число в 8-ричной системе оканчивается на 0, значит в нем целое число восьмерок, то есть оно делится на 8.
Также оно делится и на 6 (поэтому же). Это число 24.
а из несколько моделей идут еще несколько моделей либо после нескольких моделей идёт одна большая из тех прошлых моделеё .
uses crt;
var i,s,a,b:integer;
begin
for i:=10 to 99 do
begin
a:=i div 10;
b:=i mod 10;
s:=a+b;
if s*s*s = sqr(i) then writeln(i);
end;
readln;
end.
1) 102+222 = <span>110000
</span>2) <span>102*222 = </span><span>1011001200</span>