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

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

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

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

Добавлено через 2 минуты
тока вот какая лажа её надо написать простыми операторами! не используя функцию!!!!!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.04.2010, 21:46
Ответы с готовыми решениями:

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

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

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

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

6
1915 / 1065 / 384
Регистрация: 06.12.2008
Сообщений: 2,802
08.04.2010, 21:47 2
https://www.cyberforum.ru/pascal/thread93245.html
0
Студент
498 / 344 / 162
Регистрация: 15.03.2010
Сообщений: 601
08.04.2010, 21:47 3
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  [ТС] 4
спасибо, нельзя простыми написать меня училка задолбала ей надо чтоб не использовалась функция!!! я уже здавал пости в таком виде она не приняла!!!!!!
0
Почетный модератор
64291 / 47589 / 32740
Регистрация: 18.05.2008
Сообщений: 115,181
10.04.2010, 10:05 5
Неужели самому такую чушь нельзя написать, арифметика за второй класс.
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 6
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
15 / 15 / 3
Регистрация: 04.10.2009
Сообщений: 219
01.11.2012, 21:48 7
А почему просто не преобразовать число в строку и не посчитать количество символов?)

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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
01.11.2012, 21:48
Помогаю со студенческими работами здесь

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

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

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

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


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru