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
1)3
2)3
3)4
4)4
5)3
6)б,с,д,а
7)3270
вторую страницу не осилила)))
Во всех фрагментах выравнивание по левому краю
1.сабля
2.сборник
3.светлый
4.сгибать
5.сделать
6.север
7.сёмга
8.сжимать
9.сзади
10.силач
11.скатерть
12.слабый
13.смешной
14.сначала
15.собака
16.спасибо
17.сразу
18.стакан
сфотографируй нормально а то 3 столбик не видно.
Var
a:array[1..1000]of longint;
n,m,k,i,l,min:longint;
begin
min:=maxlongint;
readln(n);
for i:=1 to n do
begin
readln(a[i]);
if a[i]<min then min:=a[i];
end;
writeln(a[i]);
readln;
end.