Блок-схема алгоритма - в прилагаемом файле.
Даже не знаю) очень сложно для меня
Ответ:
модель «Homo economicus».
Модель «советский экономический человек»
Объяснение:
Var s,p:string; k,i:integer;
begin
readln(s);
p:='.,;:!?';
k:=0;
for i:=1 to length(s) do
if pos(s[i],p)>0 then k:=k+1;
writeln('k = ',k);
end.
Пример:
Hi, guys!
k = 2