Войти Регистрация Спроси ai-bota

Дана строка символов содержащая символы вывести все цифры строки. паскаль

Нажмите на рекламу ниже и сразу увидите ответ

↓

Популярные вопросы:

milton555

03.05.2021 10:50

:использовать ссылки на абсолютные адреса ячеек. охотник пулька всегда берет с собой на охоту собаку буль¬ку, которая загоняет для него зверя. для того, чтобы загнать...

ledylog

03.05.2021 10:50

Найти сумму 1,1+1,2+1,3+ из n слагаемых надо в системе паскаля...

arioom

20.07.2020 02:42

Придумайте загадку где ответом должны являться цифры: 1) 3 2) 4 3) 2 4)4 5) 1...

аня2838

26.12.2020 12:32

Дано вещественное число. вывести на экран его абсольтную величину , если число отрицательное, или дробную часть в противном случае...

Sirota20

28.08.2022 18:44

Вычитание 10101100-101001=? 11011-1000=? 1111101-101010=? 1-1=0 1-0=1 0-0=0 10-1=1...

Егорик69

28.08.2022 18:44

Найти произведение двух чисел 1100*1000 10110,11*1010,10 1*0=0 1*1=1 0*1=0 0*0=0...

TRINDES2017

07.01.2020 21:44

Файлдарды бір форматтан екінші форматқа түрлендіру алгоритміндегі қатені анықта. «Түрлендіру (Конвертировать)» батырмасын басу Файлдың кеңейтілуін (сапасын) таңдау...

melnicoff

30.03.2023 09:45

Програма 5 age=16if age 16:print( Покажіть свідоцтво )else:print( Покажіть паспорт )...

justfrog44Arch

08.01.2023 18:05

Решите учениками олимпиады от лунных человечков записано с ,всех символов лунного алфавита: юма_юм.сколько информации оно несет? 1)80 2)256 3)48 4)64 5)12...

danila9988p09k31

17.11.2021 01:53

Дан диаметр окружномти d. найти ее длину l=p*d. в качестве значения p использовать 3, 14...

Ответ:

olga000064

08.07.2020 07:15

См. файл во вложении

0,0(0 оценок)

Ответ:

viktoriya212

08.07.2020 07:15

VAR
A:STRING;
n,i:integer;
begin
readln(a);
for i:=1 to length(a) do
if (a[i]>='0')and(a[i]<='9')then
write(a[i]);
end.

0,0(0 оценок)

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку