Задача на количество цифр

@oleg434777 · Регистрация: 27.06.2013

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

Найти количество цифр в целом числе,заданном с клавиатуры.Максимальное количество цифр-6.
1)составить и отладить программу
2)проверить на тестовых данных:156;2368;56732;168904

Помогите пожалуйста,буду очень благодарен

@Mishania · 18.10.2013, 19:50

oleg434777,

Pascal

var
   n: integer;
   i: byte;
begin
     Write('n:'); Readln(n);
     While n>0 do begin
           n:=n div 10;
           inc(i);
     end;
     Writeln(i);
     Readln;
end.

@oleg434777 · 18.10.2013, 19:53 **[ТС]**

Mishania, это только часть программы,или она в целом?

@Mishania · 18.10.2013, 20:07

Немного изменил на тот слуай, если число отрицательное:

Pascal

var
   n: integer;
   i: byte;
begin
     Write('n:'); Readln(n); n:=abs(n);
     While n>0 do begin
           n:=n div 10;
           inc(i);
     end;
     Writeln(i);
     Readln;
end.

Добавлено через 1 минуту

Сообщение от oleg434777

это только часть программы,или она в целом?

Это вся программа, отлажена и проверена на приведенных Вами числах и не только.

@oleg434777 · 18.10.2013, 20:11 **[ТС]**

Mishania, огромное тебе спасибо,ты меня спас прям))

@oleg434777 0 / 0 / 1 Регистрация: 27.06.2013 Сообщений: 66
		1
	Задача на количество цифр 18.10.2013, 19:20. Показов 499. Ответов 4 Метки нет (Все метки) Найти количество цифр в целом числе,заданном с клавиатуры.Максимальное количество цифр-6. 1)составить и отладить программу 2)проверить на тестовых данных:156;2368;56732;168904 Помогите пожалуйста,буду очень благодарен 0

@oleg434777 0 / 0 / 1 Регистрация: 27.06.2013 Сообщений: 66
	18.10.2013, 19:53 [ТС]	3
	Mishania, это только часть программы,или она в целом? 0

@oleg434777 0 / 0 / 1 Регистрация: 27.06.2013 Сообщений: 66
	18.10.2013, 20:11 [ТС]	5
	Mishania, огромное тебе спасибо,ты меня спас прям)) 0

Опции темы