Вводятся подстрока и строка. определить, сколько раз данная подстрока входит в строку?

Var count, p: integer;     s, ps: string; begin       readln(s, ps);       p: =pos(ps,s);       while p> 0 do       begin           count : = count + 1;           delete(s, p, length(ps));           p: =pos(ps, s);       end;       writeln(count); end.вот так =)

аз, буки — бери указку в руки, фита, ижица — плетка ближится.

если дурак, то это надолго.

если б да кабы во рту росли грибы — тогда бы был не рот, а полный огород.

если больная смотрит в зеркало — значит она выздоравливает.

если голова пуста, то ей ума не придадут места.

если гора не идет к магомету, то магомет идет к горе.

если по- скроен, то и один в поле воин.

если хочешь потерять друга — одолжи ему денег.

неча на зеркало пенять, коли рожа крива.

долог день до вечера, коли делать нечего.

не на пользу книги читать, коли только вершки в них хватать.

худ обед, коли хлеба нет.

1поколение: создание програмируемых компьютеров на электронных лампах.  2 поколение: в разы уменьшены габариты эвм, в основе конструкции лежат 3 поколение: создание эвм на миниатюрных интегральных  схемах, которые находяться на кристале кремния. опять невероятно изменились габариты.  один такой кристал мог заменить 30-тонный компьютер на эл. лампах 4 поколение: создание эвм на больших интегральных схемах. таким образом достигнута максимальная из поколений производительность, и самые маленькие габариты