var i,count:integer; str:string; begin readln(str); for i:=1 to length(str) do begin if (ord(str[i]) >= 48) and (ord(str[i]) <= 57) then inc(count); end; writeln('Количество цифр = ',count); end.
Формат. Формат шрифта подразумевает под собой: выбор подчеркивания; подбор ширины;определение цвета шрифта; выбор шрифта; подбор начертания; выбор размера; кернинг шрифта; смещение шрифта; шрифтовые спецэффекты; индексацию.
Характеристики шрифта: Гарнитура, кегль, начертание, ширина, подчеркивание, кернинг, цвет шрифта, смещение символов шрифта, параметры анимации, индексация, регистр шрифта.
Но если попроще:Шрифтов много, отличаются они друг от друга по 3-м параметрам: Гарнитура, размер символов, начертание.А все остальное - лишь детализация.
Const maxN = 100; // Максимальное кол-во элементов массива var n, i: longint; middle, sum, sum2: real; // Может быть нецелым числом a: array[1..maxN] of real; begin write('Введите количество элементов массива: '); readln(n); sum := 0; // Считаем сумму всех элементов, чтобы найти среднее арифметическое write('Введите элементы массива через пробел: '); for i := 1 to n do begin read(a[i]); sum := sum + a[i]; end; middle := sum / n; // Вычисляем среднее арифметическое writeln('Среднее арифметическое = ', middle); sum2 := 0; // Считаем сумму элеметов, меньших среднего арифметического for i := 1 to n do if a[i] < middle then sum2 := sum2 + a[i]; writeln('Сумма элементов, меньших среднего арифметического = ', sum2); end.
i,count:integer;
str:string;
begin
readln(str);
for i:=1 to length(str) do begin
if (ord(str[i]) >= 48) and (ord(str[i]) <= 57) then inc(count);
end;
writeln('Количество цифр = ',count);
end.