Вопрос по информатике:
Дано натуральное число , определить количество цифр в нем ( ПАСКАЛЬ )
СРОЧНО !
Пожаловаться
- 02.09.2015 22:05
- Информатика
- remove_red_eye 14678
- thumb_up 13
Ответы и объяснения 2
Vara:string;beginwriteln('Введите число: ');readln(a);writeln('Количество цифр в вашем числе - ',length(a));end.
Пожаловаться
- 03.09.2015 17:59
- thumb_up 22
Var
ans, n:integer;
Begin
Read(n);
While (n > 0) do
begin
inc(ans);
n := n div 10;
end;
Writeln(ans);
end.
ans, n:integer;
Begin
Read(n);
While (n > 0) do
begin
inc(ans);
n := n div 10;
end;
Writeln(ans);
end.
Пожаловаться
- 04.09.2015 22:40
- thumb_up 26
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы