tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Написать с клавиатуры вводится
Написать с клавиатуры вводится число произвольной длины, нужно составить массив, содержащий цифры этого числа
lenocekkotik856
1 22.07.2019 06:10
1
Ответы
gugem
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
ПОКАЗАТЬ ОТВЕТЫ
ExLuSsiVe
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
Замечание: Все нецифровые символы будут выброшены. Если этого не нужно - просто вводите только цифры)))
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
1990200827
25.05.2020 00:36
Две минуты записи цифрового аудиофайла занимают на диске 5,1 Мб. Частота дискретизации — 22050 Гц. Какова разрядность аудиоадаптера?...
NanaxD
25.05.2020 00:02
НУЖЕН ОТВЕТВыполните сложение двух чисел в разных системах счисления.112(3)+24(5)ответ запишите в десятичной системе счисления....
anyutatelichuk
01.12.2020 22:20
МАЙНКРАФТ знаю, что не по теме, но как отключить вот эти вот действия в правом нижнем углу...
ддииммоонн
01.12.2020 22:21
Подготовить сообщение Алгоритмы ветвящейся структуры в языке программирования Python ...
максімаус
15.08.2019 20:50
Определить количество символов в алфавите,если сообщение,содержащие 40 символов,занимает 30 байт....
GeorgeFedorenko
15.08.2019 20:50
Что такое промежуточные итоги? когда их целесообразно создавать...
PomogiSPb
23.08.2019 17:50
Сформулируйте массив по образцу 0 0 0 0 0 0 7 0 0 0 0 0 6 0 0 0 0 0 5 0 0 0 0 0 4 0 0 0 0 0 3 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0...
daniyar1306kz
27.02.2020 19:53
решить задачу c++ можно с циклами. Нечетные числа Сегодня на уроке математики Андрей заинтересовался свойствами нечетных чисел. Во время перемены он придумал несколько...
BaRiGaSimon
27.02.2020 19:52
1. Вычислить множество значений функции Y=M+C При С= 3,2; M изменяющихся от 0,1 до 15,8 с шагом 0,2 2. Вычислить количество множества значений функции y=Ax-C при...
Ооооооокккккккк
22.03.2022 00:28
ДЕВОЧКЕ РЕШИТЬ ЗАДАЧУ В ПИТОНЕ Дана строка-предложение на русском языке. Преобразовать строку так, чтобы каждое слово начиналось с заглавной буквы. Словом считать...
Популярные вопросы
Используйте отрицательные глаголы в диалогах. Вместо большого...
1
ВОТ ОТВЕТ :Iн = 6 мА, ∆Uст/Uст = 6,67*10^-3...
2
Hка кількість теплоти виділиться при повному згорянні 0,1 кг...
3
Что является основным телом гриба?...
1
Упрости выражение и найди его значение 1\5m+7\20m−1\4m=?если...
3
Скиньте ответы на огэ русский язык 2021 васильевых гостева 50...
2
Напишіть твір на тему ОСОБЛИВОСТІ СЕРЕДНЬОВІЧНОЇ КИТАЙСЬКОЇ ПОЕЗІЇ...
1
Что трагичного или комичного вы видите в пьесе А.В.Вампилова...
2
уже точно Я не могу решить...
2
Упростите выражение найдите его значение при а 4 1/2при б 4/15...
3
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
Замечание: Все нецифровые символы будут выброшены. Если этого не нужно - просто вводите только цифры)))