Не получается программа

@GrizLy~ · Регистрация: 12.06.2010

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

Сделайте кто нить программу пожалуйста СРОЧНО! Только с подробностями как и что, что за буквы и т.д.
А то будут спрашивать всё.
Короче:
"Дано действительное число N (N<=100). Сколько цифр в числе N?"
Я эту прогу сделал через if, т.е. если пользователь ввёл 1 цифру, т.е. if a<10 то выводится текст "1 цифра" и т.д., а мне говорит что не правильно, напишите как ещё можно пожалусто, помоему через div и mod мне учительница сказала.

@Puporev · 21.06.2010, 19:18

Pascal
1
2
3
4
5
6
7
8
k:=0;//количество цифр
m:=n;/запомним число
while m>0 do//пока оно не ноль
 begin
  m:=m div 10;//делим его на 10
  k:=k+1;//и считаем
 end;
write('В числе ',n,'  цф.');

@GrizLy~ · 22.06.2010, 10:32 **[ТС]**

Если полная прога такая:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
uses crt;
var k,m,n:real;
Begin
clrscr;
writeln('vvedite chislo');
readln(m);
k:=0;
m:=n;
while m>0 do
begin
m:=m div 10;
k:=k+1;
end;
write('V chisle ',n,' cifr');
readln;
End.

то что то тут не то, у меня выводит цифру, которую я ввёл.

@Puporev · 22.06.2010, 11:55

Если такую хрень написать

Pascal
1
2
3
4
readln(m);
k:=0;
m:=n;
while m>0 do

то конечно. Я так писал? наверное

Pascal
1
readln(n);

@GrizLy~ · 22.06.2010, 17:19 **[ТС]**

ну я незнаю, там вообще readln небыло))

@Puporev · 22.06.2010, 17:27

цитирую твое сообщение

Сообщение от GrizLy~

writeln('vvedite chislo');
readln(m); //это называется не было?????
k:=0;
m:=n;

@GrizLy~ · 22.06.2010, 17:29 **[ТС]**

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses  crt;
var k:real;
m,n:integer;
Begin
      clrscr;
      writeln('vvedite chislo');
      readln(n);
      k:=0;
      m:=n;
      while m>0 do
           begin
                  m:=m div 10;
                  k:=k+1;
           end;
      write('V chisle ',n,' cifr');
      readln;
End.

Всё равно выводит тоже самое число, которое ввожу ((( Т.е. если ввожу 20, то он выводит: "V chisle 20 cifr" если 10, то "V chisle 10 cifr" и т.д., даже незнаю, что не так((

@Puporev · 22.06.2010, 17:37

GrizLy~,
да, напиши

Pascal
1
write('V chisle ',k,' cifr');

немного думай, я писал он-лайн, опечатался, а ты же с компилятором сидишь, мозг иногда включай.

@GrizLy~ · 23.06.2010, 20:13 **[ТС]**

Во, терь работает, только он дополнительно к цифре пишет ещё кое что, вот например ввожу 100, он выводит: "V chisle 3.0E+000 cifr" вот так(

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

Добавлено через 10 часов 46 минут
Млин, меня спросили, что означает буква m? А что она означает? Я еле додумался, что означает буква К, т.к. я вначале сказал, что это просто буква, которую я захотел написать, а потом подумал что это количество, а вот насчёт буквы m я не додумался( подскажите пож

@Puporev · 23.06.2010, 20:15

n-это число, которое ввели
m:=n; //неужели даже на это ума нет?????????
значит m это же число.
Просто мы его уничтожим, а n останется.

@lera8 · 23.06.2010, 20:16

GrizLy~, так Вы совсем лентяй! неужели нельзя немного самому попытаться разобраться с этим?

Новые блоги и статьи Все статьи Все блоги /
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а привычная функция main(). . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/

@GrizLy~ 0 / 0 / 0 Регистрация: 12.06.2010 Сообщений: 12

	Не получается программа 21.06.2010, 18:42. Показов 813. Ответов 10 Метки нет (Все метки) Сделайте кто нить программу пожалуйста СРОЧНО! Только с подробностями как и что, что за буквы и т.д. А то будут спрашивать всё. Короче: "Дано действительное число N (N<=100). Сколько цифр в числе N?" Я эту прогу сделал через if, т.е. если пользователь ввёл 1 цифру, т.е. if a<10 то выводится текст "1 цифра" и т.д., а мне говорит что не правильно, напишите как ещё можно пожалусто, помоему через div и mod мне учительница сказала. 0

@GrizLy~ 0 / 0 / 0 Регистрация: 12.06.2010 Сообщений: 12
	22.06.2010, 17:19 [ТС]
	ну я незнаю, там вообще readln небыло)) 0

@GrizLy~ 0 / 0 / 0 Регистрация: 12.06.2010 Сообщений: 12
	23.06.2010, 20:13 [ТС]
	Во, терь работает, только он дополнительно к цифре пишет ещё кое что, вот например ввожу 100, он выводит: "V chisle 3.0E+000 cifr" вот так( Добавлено через 1 минуту всё, разобрался Добавлено через 10 часов 46 минут Млин, меня спросили, что означает буква m? А что она означает? Я еле додумался, что означает буква К, т.к. я вначале сказал, что это просто буква, которую я захотел написать, а потом подумал что это количество, а вот насчёт буквы m я не додумался( подскажите пож 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	23.06.2010, 20:15
	n-это число, которое ввели m:=n; //неужели даже на это ума нет????????? значит m это же число. Просто мы его уничтожим, а n останется. 0

@lera8 636 / 219 / 64 Регистрация: 03.11.2009 Сообщений: 488
	23.06.2010, 20:16
	GrizLy~, так Вы совсем лентяй! неужели нельзя немного самому попытаться разобраться с этим? 0