tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Составить программу, которая
Составить программу, которая для любого натурального числа печатает на естественном языке количество цифр в записи этого числа.составить программу на паскале.!
ariannaajoseph9
3 24.09.2019 08:10
3
Ответы
alinkaivankiv
08.10.2020 14:41
Var
a:real;
begin
WriteLn('Введите чтсло');
readln(a);
Write('В записи этого числа ');
case a of
1..9 : Write ('одна цифра');
10..99 : Write ('две цифры');
100..999 : Write ('три цифры');
1000..9999 : Write ('четыре цифр');
10000..99999 : Write ('пять цифр');
100000..999999 : Write ('шесть цифр');
else Writeln('Данное число слишком велико');
end;
end.
ПОКАЗАТЬ ОТВЕТЫ
Djjdcnudghu
08.10.2020 14:41
Var a:uint64;
k:Integer;
begin
write ('Введите число: ');
readln (a);
repeat
k:=k+1;
a:=a div 10
until a=0;
writeln('Количество цифр: ',k)
end.
var a:string;
begin
write ('Введите число: ');
readln (a);
writeln('Количество цифр: ',Length(a))
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
Zyherpopentruher007
23.12.2020 11:03
Текст рассказа, набранного на компьютере, занимает 45 килобайт. Всего в тексте 20 страниц, на каждой странице одинаковое кол-во строк по 32 символа в каждой строке. Определите...
Рукалицоомг
23.12.2020 11:03
1. В десятичной я системе счисления свернутая форма записи А10=4526,79. Укажите развёрнутую форму записи числа. 2. В пятеричной системе счисления свернутая форма записи А5=231(5)....
lyizadenikaeva
23.12.2020 11:02
1. Дайте определенияРастровая графика – этоВекторная графика - это...
vapapsroyflmq
21.05.2019 13:30
Какие слова можно составить из букв слова экскаватор?...
Liliyaph
08.08.2019 00:40
Delphi напишите программу которая проверяет ваши знания таблицы умножения...
жизньпрекрасна2
08.08.2019 00:40
«шифр цезаря». этот шифр реализует следующее преобразование текста: каждая буква исходного текста заменяется третьей после нее буквой в алфавите, который считается написанным...
ученица999999999
15.04.2021 12:22
Створи програму розв язання задачі в середовищі Scracth. Задача. На 1 м2 площі клумби, що має довжину а та ширину b, припадає 4 саджанці. Потрібно порахувати довжину огорожі...
простоhhh
15.04.2021 12:23
Составьте программу, определяющую принадлежит ли точка отрезку [0,6] (координату точки следует запросить у пользователя)...
greennattea
15.04.2021 12:24
Написать программу на Паскале для решения следующей задачи: Дан треугольник. Вычислить площадь треугольника по известным сторонам. Длины сторон задать с оператора ввода самостоятельно....
Feruz2004
15.03.2021 19:21
Расписание Только на языке c++ Имеется набор заданий с одинаковым временем выполнения. Каждое задание следует окончить к определенному моменту, в противном случае за данное...
Популярные вопросы
Упрямокутнику abcd кут bca доривнюе 35°.знайдить градусну миру кута acd...
1
розв язаня головної і механіки для рівномірного руху по колу...
2
Запишите годы, причины начала и итог ливонской войны из...
1
Эссе утопия сухопутные страны (100 слов) . 70...
3
Решите рационально (4,9*3,24*0,32) : (1,08*0,49*3,2)...
3
Как выявляются несчастные случаи с людьми на промышленных предприятиях?...
2
Как можно закончить роман дубровского...
2
Рекомендации о временном режиме сеанса массажаа) общий 20минут, местный...
2
Как описать луковицу через микроскоп в тетрадь?...
2
Укажите крайнюю точку россии...
1
a:real;
begin
WriteLn('Введите чтсло');
readln(a);
Write('В записи этого числа ');
case a of
1..9 : Write ('одна цифра');
10..99 : Write ('две цифры');
100..999 : Write ('три цифры');
1000..9999 : Write ('четыре цифр');
10000..99999 : Write ('пять цифр');
100000..999999 : Write ('шесть цифр');
else Writeln('Данное число слишком велико');
end;
end.
k:Integer;
begin
write ('Введите число: ');
readln (a);
repeat
k:=k+1;
a:=a div 10
until a=0;
writeln('Количество цифр: ',k)
end.
var a:string;
begin
write ('Введите число: ');
readln (a);
writeln('Количество цифр: ',Length(a))
end.