Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
dreakalex
26.04.2020 16:03 •
Информатика
Написать с клавиатуры вводится число произвольной длины, нужно составить массив, содержащий цифры этого числа
Показать ответ
Ответ:
1232959
19.08.2020 15:27
Var s:string;
a:array[1..255] of byte;
i,code:integer;
begin
write('Число: '); readln(s);
for i:=1 to length(s) do val(s[i],a[i],code);
for i:=1 to length(s) do write(a[i]:2);
end.
Пример:
Число: 123987456
1 2 3 9 8 7 4 5 6
0,0
(0 оценок)
Ответ:
Artem58268343
19.08.2020 15:27
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016
begin
var a:=ReadlnString.Where(x->x in ['0'..'9']).ToArray;
a.Println(',')
end.
Тестовое решение:
323234klk3453/.34545335,3453563543
3,2,3,2,3,4,3,4,5,3,3,4,5,4,5,3,3,5,3,4,5,3,5,6,3,5,4,3
Замечание: Все нецифровые символы будут выброшены. Если этого не нужно - просто вводите только цифры)))
0,0
(0 оценок)
Популярные вопросы: Информатика
AmyDay123
07.11.2021 07:48
Решите (111001↓2+AF↓16):4↓8...
zhukovaalisa401
02.10.2020 16:58
Укажите циклическую конструкцию, в которой заранее известно точное число повторений тела цикла. Оцикл с постусловием Оцикл с предусловием Оцикл с параметром...
AlexandraFox13
26.06.2020 07:57
Точка задана координатами. Определить принадлежит ли точка заштрихованной области....
danjaegorovru
05.08.2021 23:50
Даны катеты трёх прямоугольных треугольников. Вычислить гипотенузы всех треугольников (использовать подпрограмму-функцию)...
AngelRush0
27.07.2021 09:43
Запиши выражение на языке программирования Python (в строку)...
Gucci99
14.12.2020 16:36
Запуск программы на выполнение осуществляется? запишите команду...
satursacha
01.12.2021 14:41
Напишите программу, которая вычисляет значение следующей функции:...
Шаригул
25.09.2022 14:37
1. Приведите два-три примера правил или предписаний, кото- рым вы следуете в повседневной жизни.2. Можно ли считать хорошо поставленной задачу в одной изрусских...
milashenko005
16.05.2022 09:19
Файл размером 16 кбайт передается через некоторое соединение со скоростью 4096 байт в секунду. определите размер файла (в байтах) который передается через это же...
IHannahI
16.09.2021 07:51
Дана строка, содержащая, по крайней мере, один символ пробела. вывести подстроку, расположенную между первым и последним пробелом исходной строки. если строка содержит...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
a:array[1..255] of byte;
i,code:integer;
begin
write('Число: '); readln(s);
for i:=1 to length(s) do val(s[i],a[i],code);
for i:=1 to length(s) do write(a[i]:2);
end.
Пример:
Число: 123987456
1 2 3 9 8 7 4 5 6
begin
var a:=ReadlnString.Where(x->x in ['0'..'9']).ToArray;
a.Println(',')
end.
Тестовое решение:
323234klk3453/.34545335,3453563543
3,2,3,2,3,4,3,4,5,3,3,4,5,4,5,3,3,5,3,4,5,3,5,6,3,5,4,3
Замечание: Все нецифровые символы будут выброшены. Если этого не нужно - просто вводите только цифры)))