Сколько слов будет найдено в процессе автоматического поиска в предложении: «После третьего стая разбежалась, а медведь остался в избе зимовать под охраной старика. Весной же, когда медведи выходят из своих берлог, старик будто бы надел на этого медведя белый ожерелок и всем охотникам наказал, чтобы медведя этого – с белым ожерелком – никто не стрелял: этот медведь – его друг.», если в качестве образца задать слово «вед»?

var

  n,i,z: integer;

begin

  readln(n);

for i: =1 to n do if n mod i=0 then inc(z,i);

writeln(z);

end.

program mss; uses crt; var v,m,h,r: real; beginclrscr; writeln('введите радиус'); readln(r); writeln('введите высоту'); readln(h); v: = 3.14*sqr(r)*h; m: = 1200*v; writeln('    ',m: 2: 2,' кг'); readln; end.

по углам комнаты расставить 4 стула и   около каждой стены по одному ( ещё 4 стула). всего 8 стульев : )

program m; uses crt; var k,s: real; i: integer; beginclrscr; for i: =1 to 10 dobegink: =i/(i+1); s: =s+k; end; writeln(s: 2: 2); readkey; end.