Ответ №3
Объединить свой и папин компьютер в локальную сеть
1) 8/2=4
4/2=2
2/2=1
12( приписали 2)
12/2=6
Ответ: 8 преобразуется в 6
2)12212
Попробуйте оплатить задолженность и позвонить провайдеру.
<span />
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.