tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Дано натуральное число , определить
Дано натуральное число , определить количество цифр в нем ( паскаль ) !
fourkovioxk812
1 16.09.2019 00:40
1
Ответы
xXDenchykXx1
04.08.2020 09:19
Vara:string;beginwriteln('Введите число: ');readln(a);writeln('Количество цифр в вашем числе - ',length(a));end.
ПОКАЗАТЬ ОТВЕТЫ
koool3
04.08.2020 09:19
Var
ans, n:integer;
Begin
Read(n);
While (n > 0) do
begin
inc(ans);
n := n div 10;
end;
Writeln(ans);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
viploloshkinghhgg
17.03.2019 06:30
Подсчитать количество отрицательных чисел a,b,c....
Trololo2289878
17.03.2019 06:20
Пропускная канала связи 10 мбит/с. канал подвержен воздействию шума, поэтому избыточность кода составляет 20%. определите, за сколько времени по каналу будет передан текст, информационный...
rozella2017
06.09.2021 21:36
Цікав кодування інформації, іть...
niknameoyy
06.09.2021 21:37
В электронном учебнике 256 страниц. Иван установил закладку на 53 странице. Какое количество информации несёт это сообщение?...
Shkolaetopolniyad
15.05.2020 09:49
Что будет на экране после выполнения программы? var a, b: integer; begin a:=1; b:=sqr(a); a:=a + 1; b:= a * a; write ( a= , a, b= , b) end....
lerahmru
15.05.2020 09:49
Установите соответствие. сноска оглавление гиперссылка название ЭТО СОР...
angryhanry
15.05.2020 09:49
Правомерны ли действия ученика. Как, одним словом можно обозначить действие ученика...
vadimmka666
15.05.2020 09:48
Какая клавиша фиксирует режим заглавных букв...
лизанезнающая
18.06.2019 22:50
Впроцессе преобразования растрового графического файла количество цветов уменьшилось с 1024 до 32 .во сколько раз уменьшился информационный объём файла?...
анг26
10.05.2019 21:04
Напечатать таблицу перевода 1 2 20 долларов сша в рубли по текущему курсу в программе python...
Популярные вопросы
решить задачи по геометрии...
3
Які зв язки між рослинами і тваринами на луках...
1
Аннотация к тексту с клише Клише: The text is about …; First we can read about…;...
1
География Дневник путешественика таблица заполнить...
2
придумать свой знак бедствия по обж...
2
Заполните пропуски в тексте. 1. Лёд главная причина того, что Южное полушарие...
3
В треугольнике ABC проведена медиана AE. Найдите EC, если известно что AB=0,8...
3
Делаю вывод о влиянии окружающей среды и ее характеристик на распространение звука....
1
Встановіть хронологічну послідовність подій. А Визнання країнами Антанти входження...
1
Описать фильм Легенда о пианисте по плану: 1. Тема и краткое содержание 2. Достоинства...
3
ans, n:integer;
Begin
Read(n);
While (n > 0) do
begin
inc(ans);
n := n div 10;
end;
Writeln(ans);
end.