Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
 
Рейтинг 4.79/14: Рейтинг темы: голосов - 14, средняя оценка - 4.79
1 / 1 / 1
Регистрация: 17.11.2009
Сообщений: 56

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

17.11.2009, 14:32. Показов 3162. Ответов 25
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
В паскале соорудить:
№1
задание:
Дано натуральное число N (N<10*(степень 255). Вывести на экран количество цифр числа N и сумму его цифр
№2
задание:
Вычислить для натурального n и вещественного x http://www.valar.ru/gallery/1109/1258457696_.jpg
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.11.2009, 14:32
Ответы с готовыми решениями:

Дано натуральное число N (N<10^255). Вывести на экран количество цифр числа N и сумму его цифр
Дано натуральное число N (N&lt;10^255). Вывести на экран количество цифр числа N и сумму его цифр.

Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N
Дана десятичная запись натурального числа N. Определить количество нечетных цифр числа N. Что значит десятичная запись, как это записать я...

Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру
1)Дано натуральное число n. Составить программу, подсчитывающую количество цифр числа n, сумму его цифр и определяющую его первую цифру.

25
Почетный модератор
 Аватар для Puporev
64320 / 47616 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
18.11.2009, 12:45
Студворк — интернет-сервис помощи студентам
cl0oud, Во-первых, выбирайте выражения и пишите более цивильно, здесь не тусовка дебилов.
Во-вторых, массивы не нужны, просто преобразуйте цифры в числа и суммируйте.
Pascal
1
2
3
4
5
6
7
8
9
var s:string;//число
      i,t,c,sm:integer;
....................................
sm:=0;
for i:=1 to length(s) do
 begin
  val(s[i],t,c);
  sm:=sm+t;
 end;
Добавлено через 48 секунд
Lord_Voodoo, Пардон, одновременно писали.
1
1 / 1 / 1
Регистрация: 17.11.2009
Сообщений: 56
18.11.2009, 12:51  [ТС]
понятия не имею, но в группе явно не один я такой)) в школе обучали этому паскалю только тогда когда появлялась училка (но её вообще было трудно увидеть на своем рабочем месте), щас же я учусь на прогера и не могу получить те знания для решения этих задачь что дают на лекциях (методом "много слов, мало практики..") вот я и ничего не могу поделать чтобы не вылететь из вуза кроме как обратиться кВам, к программистам

Добавлено через 3 минуты
спасибо господа!
Puporev впредь буду следить за своей речью
0
Почетный модератор
 Аватар для Lord_Voodoo
8785 / 2538 / 144
Регистрация: 07.03.2007
Сообщений: 11,873
18.11.2009, 12:51
cl0oud, ну вообще, если ты уж решил стать программистом, тогда привыкай к тому факту, что слов много, тобишь ТЗ заказчика, а инфы полезной минимум... Это обычное рабочее состояние программиста... а в ВУЗе тебя программить не собираются учить, потому что это удел самого программиста, они максимум задают направление и учат учиться, т.к. это твой удел на всю жизнь, коль решил стал программером...
1
18.11.2009, 12:54

Не по теме:

Цитата Сообщение от cl0oud Посмотреть сообщение
понятия не имею, но в группе явно не один я такой)) в школе обучали этому паскалю только тогда когда появлялась училка (но её вообще было трудно увидеть на своем рабочем месте), щас же я учусь на прогера и не могу получить те знания для решения этих задачь что дают на лекциях (методом "много слов, мало практики..") вот я и ничего не могу поделать чтобы не вылететь из вуза кроме как обратиться кВам, к программистам
как то вот не пробрало на слезу... у меня тож был в школе препод, который плохо вообще соображал с какой стороны подойти к компу... да и на парах сейчас тож мало чего объясняют... все знания это самостоятельное обучение... а то что у тебя ничего не получается эт от того что ты ничего не делаешь... халява ведь так и манит...
Цитата Сообщение от cl0oud Посмотреть сообщение
щас же я учусь на прогера
что могу сказать... не на того ты пошел учиться...

1
1 / 1 / 1
Регистрация: 17.11.2009
Сообщений: 56
18.11.2009, 13:30  [ТС]
дело не в том что ты уже умеешь, а в том что хочешь научиться. а ведь на практике легче учиться, те проги что были написаны здесь можно проанализировать и в дальнейшем уже знать как делать их.
0
18.11.2009, 13:39

Не по теме:

cl0oud, практика без теории порой даже вредна... теория тоже неотъемлимая составляющая... для этого нужно читать умные книжки... к примеру возьмем входные и выходные параметры процедур/функций... ты увидишь что у кого то в процедуре будет

Pascal
1
procedure f(x:integer);
и ты подумаешь что так надо делать всегда и во всех случаях... а это на самом не так. не зная теории далеко на практике не уедешь...

Добавлено через 1 минуту
другое дело что теорию надо постоянно закреплять практикой... это да...

1
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.11.2009, 13:39

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.
Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа. Добавлено через 2 минуты ...

Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа.
Составить программу, которая для любого натурального числа печатает количество цифр в записи этого числа. на turbo pascal надо сделать...

количество цифр числа
Написать функцию, подсчитывающую количество цифр числа. Используя еѐ, определить в каком из двух данных чисел больше цифр.

Найти количество и сумму цифр числа
Дано целое число N (&gt; 0). Используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр

Найти количество чётных цифр числа
Дано натуральное число: - найти количество чётных цифр числа; - верно ли, что данная цифра А встречается в числе более 2 раз (А...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
26
Ответ Создать тему
Новые блоги и статьи
Когда логика программы не спасает от человеческих ошибок
Maks 18.08.2026
В последнее время всё чаще и чаще сталкиваюсь с таким явлением, как абсолютная невнимательность (или глупость) пользователей. Проявляется это чаще всего на работе в коллективе. Допустим, человек с. . .
Лето уходит
kumehtar 17.08.2026
Мысли в слух
kumehtar 17.08.2026
Забавно, насколько сейчас стала доступна информация. Например о магии, духовном развитии, медитациях, и других подобных направлениях, ранее зачастую тайных, передаваемых от учителя к ученику. Хотя. . .
Перемещение строк из ТЧ в другой документ с учетом текущего пробега
Maks 17.08.2026
Реализация из решения ниже выполнена на примере нетипового документа "Автозапчасти", с ТЧ "Шины". За основу взят алгоритм отсюда: https:/ / www. cyberforum. ru/ blogs/ 359708/ 10838. html Задача: . . .
Саморегулирующийся социальный контракт для сервера cross-section.
Hrethgir 14.08.2026
С кодом конечно таких глубоких размышлений пока не было, впрочем я уже привык к алгоритмизации. Суть предмета записи: снова в диалоге с нейросетью (я взял пока себе ник для учётки админа - Rector). . . .
Часы электронные
Uhbif79 12.08.2026
Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .
Часы с будильником на основе класса QLCDNumber
Uhbif79 12.08.2026
Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .
Установка MinGW GCC 16.2 и CMake
8Observer8 10.08.2026
VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru