Готово.................
<span>1-г
2-в
3-д
4-а
5-б</span>
Var s:string; k,i:integer;
begin
write('Введите строку:');
readln(s);
k:=0;
for i:=1 to length(s) do
if (s[i]>='0')and(s[i]<='9') then k:=k+1;
writeln('k = ',k);
end.
Пример:
<span>Введите строку:
13 апреля 2016 г .
k = 6</span>
Абзац– это основная структурная единица текстового процессора. Абзац – это структурный элемент текстового файла или текстового документа, представляющий собой, по мнению автора текста, законченный по смыслу фрагмент изложения. При наборе текста разбиение на абзацы производится в соответствии с содержанием (по смыслу текста). С точки зрения компьютера (текстового процессора), абзац подразделяется на символы.
Символ– минимальная единица текстовой информации. Символы – это буквы, пробелы, знаки пунктуации, цифры, специальные символы (@, *, &).
Var
n, i: integer;
sum: real;
begin
sum := 0;
read(n);
for i := 1 to n do
begin
sum := sum + (1 / (i * i));
end;
write(sum);
end.