0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 5

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

08.04.2010, 21:46. Показов 3963. Ответов 6
Метки нет (Все метки)

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

Добавлено через 2 минуты
тока вот какая лажа её надо написать простыми операторами! не используя функцию!!!!!
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
08.04.2010, 21:46
Ответы с готовыми решениями:

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

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

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

6
1916 / 1066 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
08.04.2010, 21:47
https://www.cyberforum.ru/pascal/thread93245.html
0
Студент
 Аватар для Жека-старший
498 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
08.04.2010, 21:47
Pascal
1
2
3
4
5
6
7
8
9
10
11
var ch:longint;
function f_kol(ch:longint):byte;
begin
   if ch=0 then f_kol:=0
           else f_kol:=f_kol(ch div 10)+1;
end;
begin
  writeln('Vvedi chislo');
  readln(ch);
  writeln(f_kol(ch));
end.
0
0 / 0 / 0
Регистрация: 08.04.2010
Сообщений: 5
10.04.2010, 09:43  [ТС]
спасибо, нельзя простыми написать меня училка задолбала ей надо чтоб не использовалась функция!!! я уже здавал пости в таком виде она не приняла!!!!!!
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
10.04.2010, 10:05
Неужели самому такую чушь нельзя написать, арифметика за второй класс.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var n:1..maxlongint;//натуральное число до 2 147 483 647
    k:byte;//количество цифр
begin
clrscr;
repeat
write('Введите натуральное число до ',maxlongint,' n=');
readln(n);
until n>0;
k:=0;
while n>0 do//пока число не ноль
 begin
  n:=n div 10;//делим его на 10
  k:=k+1;//считаем
 end;
write('Количество цифрв числе=',k);
readln
end.
0
0 / 0 / 0
Регистрация: 17.01.2012
Сообщений: 10
17.01.2012, 21:20
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  temp,n,pr,c,first,sum:integer;
begin
  ReadLn(N);
  temp:=n;
  if N<>0 then
    pr:=1
  else
    pr:=0;
  sum:=0;
  c:=0;
  while temp<>0 do
  begin
    inc(sum, temp mod 10);
    pr:=pr*(temp mod 10);
    inc(c);
    if temp div 10 = 0 then
      first:=temp mod 10;
    temp:=temp div 10
  end;
  WriteLn(c,' ',sum,' ',pr,' ',first);
  ReadLn
end.
здесь выполняется сразу 3 действия. пожалуйста оставьте тут только нахождение суммы цифр в числе.
вот только в этой программе N следует вводить самому,а у меня N по условию задачи принадлежит множеству чисел таких как 7,23,303,4000,505050 и др. подредактируйте умоляю))

за ранее благодарю.
0
 Аватар для Bomboos
15 / 15 / 3
Регистрация: 04.10.2009
Сообщений: 219
01.11.2012, 21:48
А почему просто не преобразовать число в строку и не посчитать количество символов?)

Pascal
1
2
3
4
5
6
7
8
9
10
11
program Programma;
var
 N : integer; strN : string;
begin
  cls;
  write('Введите число: ');
  read(N);
  Str(N,strN);
  write('Цифр в числе - ',Length(strN));
  readln;
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
01.11.2012, 21:48
Помогаю со студенческими работами здесь

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

Программа, печатающая для любого натурального числа 1-1000 количество цифр в записи этого числа
Помогите, пожалуйста, составить код Delphi (вывод значений в Memo при нажатии кнопки) для следующих задач: Программа, которая для...

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

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

Составить программу нахождения числа, которое образуется из данного натурального числа при записи его цифр в обратном порядке
Решите задачу используя рекурсивную подпрограмму Составить программу нахождения числа, которое образуется из данного натурального...


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

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

Новые блоги и статьи
Как писать чистый, тестируемый и качественный код на Python
py-thonny 12.07.2025
Помню свой первый проект на Python. Работал тогда быстро, грязно, лишь бы работало. Код был похож на запутанный клубок - переменные по одной букве, функции на 200 строк, комментарии отсутствовали как. . .
Blazor и контроллер сервопривода IoT Meadow Maple
Wired 11.07.2025
Я решил разобраться, как можно соединить современные веб-технологии с миром "железа". Интересная комбинация получилась из Blazor в качестве веб-интерфейса и микроконтроллера Meadow с его веб-сервером. . .
Генерация OpenQASM из кода Q#
EggHead 10.07.2025
Летом 2024-го я начал эксперименты с библиотекой Q# Bridge, и знаете что? Она оказалась просто находкой для тех, кто работает на стыке разных квантовых экосистем. Основная фишка этой библиотеки -. . .
Изучаем новый шаблон ИИ-чата .NET AI Chat Web App
stackOverflow 10.07.2025
В . NET появилось интересное обновление - новый шаблон ИИ-чата под названием . NET AI Chat Web App. Когда я впервые наткнулся на анонс этого шаблона, то сразу понял, что Microsoft наконец-то. . .
Результаты исследования от команды ARP (июль 2025 г.)
Programma_Boinc 10.07.2025
Результаты исследования от команды ARP (июль 2025 г. ) Африканский проект по дождям (ARP) World Community Grid снова запущен! Мы рады поделиться обновленной информацией о нашем прогрессе с осени. . .
Angular vs Svelte - что лучше?
Reangularity 09.07.2025
Сегодня рынок разделился на несколько четких категорий: тяжеловесы корпоративного уровня (Angular), гибкие универсалы (React), прогрессивные решения (Vue) и новая волна компилируемых фреймворков. . .
Code First и Database First в Entity Framework
UnmanagedCoder 09.07.2025
Entity Framework дает нам свободу выбора, предлагая как Code First, так и Database First подходы. Но эта свобода порождает вечный вопрос — какой подход выбрать? Entity Framework — это. . .
Как использовать Bluetooth-модуль HC-05 с Arduino
Wired 08.07.2025
Bluetooth - это технология, созданная чтобы заменить кабельные соединения. Обычно ее используют для связи небольших устройств: мобильных телефонов, ноутбуков, наушников и т. д. Работает она на частоте. . .
Руководство по структурам данных Python
AI_Generated 08.07.2025
Я отчетливо помню свои первые серьезные проекты на Python - я писал код, он работал, заказчики были относительно довольны. Но однажды мой наставник, взглянув на мою реализацию поиска по огромному. . .
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах
Programma_Boinc 08.07.2025
Тестирование энергоэффективности и скорости вычислений видеокарт в BOINC проектах Опубликовано: 07. 07. 2025 Рубрика: Uncategorized Автор: AlexA Статья размещается на сайте с разрешения. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru