Как посчитать количество чисел в паскале
Перейти к содержимому

Как посчитать количество чисел в паскале

  • автор:

Подсчитать количество цифр в числе

Author24 — интернет-сервис помощи студентам

3.С клавиатуры вводится натуральное число N . Программе подсчитать количество цифр в числе .

Буду очень благодарен .
P.S.S. тему плохо понял =)

Лучшие ответы ( 1 )
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
Ответы с готовыми решениями:

Подсчитать количество цифр в числе
С клавиатуры вводится натуральное число П.Узнайте в нём количество цифр

Подсчитать количество цифр в числе кратных 3
2. подсчитать количество цифр в числе кратных 3

Подсчитать количество чётных и нечётных цифр в числе
число n>=0 требуется определить кол-во цифр в числе, подсчитать кол-во чётных и нечётных цифр в.

Подсчитать количество чётных и нечётных цифр в заданном числе
число n>=0 требуется определить кол-во цифр в числе, подсчитать кол-во чётных и нечётных цифр в.

328 / 163 / 89
Регистрация: 03.11.2010
Сообщений: 920

Лучший ответ

Сообщение было отмечено Памирыч как решение

Решение

ЦитатаСообщение от Стельмашук Посмотреть сообщение

3.С клавиатуры вводится натуральное число N . Программе подсчитать количество цифр в числе .

1 2 3 4 5 6 7 8 9 10 11 12
uses crt; Var n,m,p,k:integer; Begin write('n=');read(n); m:=n;k:=0; while m<>0 do begin p:=m mod 10; K:=K+1; m:=m div 10; end; writeln('k=',k); end.

87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
Помогаю со студенческими работами здесь

Рекурсия. Подсчитать количество цифр в заданном натуральном числе
Подсчитать количество цифр в заданном натуральном числе

Вывести на экран сумму цифр и количество нечетных цифр в заданном числе
Пожалуйста помогите решить 3 задачи, буду примного благодарен! 1. Дано целое положительное.

Ввести два числа. Найти количество цифр в двух числах, используя функцию вычисления количества цифр в одном числе
Ввести два числа. Найти количество цифр в двух числах, используя функцию вычисления количества цифр.

Количество цифр в числе
Доброго времени суток! Хотела бы попросить у вас помощи вот с такой задачей: "Составьте программу.

Или воспользуйтесь поиском по форуму:

Количество цифр в строке

Написать программу, которая подсчитывает, сколько содержится цифр в строке.

Введем переменную n для хранения количества найденных цифр. В цикле будем извлекать каждый символ строки и находить его порядковый номер в таблице символов.

Известно, что символы цифр в этой таблице имеют порядковые номера от 48 (для нуля) до 57 (для девятки) включительно. Если номер очередного извлеченного из строки символа попадает в данный диапазон, значит перед нами цифра. В этом случае следует увеличить на единицу счетчик цифр, то есть переменную n .

var s: string; i, n, len: byte; begin readln(s); len := length(s); n := 0; for i:=1 to len do if (ord(s[i]) > 47) and (ord(s[i]) < 58) then n := n + 1; writeln(n); end.
one 5 t60 3

Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Решение вопросов, возникающие при автоматизации учета с помощью 1С:Предприятие. Паскаль.

Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль.

20.06.2017 | Автор Дмитрий

Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль.

program Kol_Letters_Digits;  uses crt; type Ch_Set = set of char; const Digits: Ch_Set = ['0'..'9']; Letters: Ch_Set = ['A'..'Z', 'a'..'z']; var i, i_CountDig, i_CountLet: integer; i_ArrNum: array[1..10] of integer; ch_1: char; ch_f: Text; begin i_CountDig := 0; i_CountLet := 0; Assign(ch_f, 'E:\file1.txt'); Reset(ch_f); while not EOF(ch_f) do begin Read(ch_f, ch_1); Write(ch_1); if ch_1 in Digits then i_CountDig := i_CountDig + 1; if ch_1 in Letters then i_CountLet := i_CountLet + 1; end; //Вывод на экран WriteLn(); WriteLn('Количество цифр = ', i_CountDig); WriteLn('Количество букв = ', i_CountLet); //завершение работы программы WriteLn('Нажмите , чтобы выйти.'); ReadLn(); end.  

Текстовой файл

Текстовой файл:

Текстовой файл.

Посчитать в текстовом файле отдельно количество цифр и латинских букв , паскаль.

Рубрика: Pascal (Паскаль) - задачи и решения

Количество цифр в числе

Author24 — интернет-сервис помощи студентам

Доброго времени суток! Хотела бы попросить у вас помощи вот с такой задачей:
"Составьте программу с использованием процедуры, вычисляющей количество цифр в заданном числе."
Задача для Pascal ABC.

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

Ответы с готовыми решениями:

Вывести на экран сумму цифр и количество нечетных цифр в заданном числе
Пожалуйста помогите решить 3 задачи, буду примного благодарен! 1. Дано целое положительное.

Ввести два числа. Найти количество цифр в двух числах, используя функцию вычисления количества цифр в одном числе
Ввести два числа. Найти количество цифр в двух числах, используя функцию вычисления количества цифр.

Найти количество цифр в числе
Здравствуйте, помоги, пожалуйста написать функцию, которая считает кол-во цифр в числе, чтобы не.

Посчитать количество цифр в числе
как посчитать количество цифр в числе?

Добавить комментарий

Ваш адрес email не будет опубликован. Обязательные поля помечены *