сервис вопросов и ответовНайти и вывести все числа строки. Если их нет, то сообщить. (Pascal)
5-9 класс|
|
КрякКряк
13 окт. 2013 г., 1:38:11 (10 лет назад)
AlinkaZimina
13 окт. 2013 г., 2:18:36 (10 лет назад)
var a, b: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] in ['0'..'9']) then b := b + a[i];
if (length(b) = 0) then
Writeln('{ No nums }')
else
Writeln(b);
end.
Ответить
Другие вопросы из категории
помогите пожалуста
Надо чтобы когда я нажимаю на кнопку button у меня программа переходила на следующюю форму мне нужен программный код Делфи7
для передачи по каналу связи сообщения состоящего только из символов а б в и г используется посимвольное кодирование а-0 б-1 в-10 г-11 через
канал связи передаётся сообщение гаваб можно ли при таком кодировании однозначно расшифровать полученное сообщение сколько всего способов расшифровки существует
1Кто присваевает файлу собственное имя
а-програма
б user
в-операциооная система
г- винчестер
2 Выберите верную запись имени файла
а- письмо.dog
б-письмо:doc
в-письмо.doc
г-"письмо".doc
Читайте также
1) Вывести все числа от a до b,но заранее неизвестно, a>b или a<b
2) Вывести нечётные числа из диапозона [a,b],где a и b могут быть как чётными,так и нечётными,а также отрицательными,но обязательно a<b
3) В одной программе посчитать две суммы из [a,b] (те же условия,что и в задании 2)
S-сумма всех нечётных чисел
Sym-сумма чисел,кратных 3
Cами числа выводить не нужно
4)Найти a в степени n,где a и n целые числа, но могут быть отрицательными
(задачи можно делать либо через For,либо через While)
вводится число А и 7 целых чисел, определить, каким по счету в последовательности будет число а , если его нет, то вывести ноль
решите пожалуйста способом паскаля
Составить программы в Turbo Pascal. 1)Дано три точки A,B,C на числовой оси.Найти длинну отрезка AC и BC и их сумму. 2)Задано четыре целых числа
a,b,c,d.Выяснить произведение этих чисел больше 300? 3)Дано целое число ,если оно положительное,то прибавить к нему 1,а если отрицательное.то отнять от него 2.Вывести полученое число.
1.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами до 50. Найти сумму всех четных элементов массива и их количество.
2.Дан массив целых чисел из 25 элементов. Заполнить его случайными числами от 0 до 50. Заменить все четные элементы на их квадраты, а нечетные удвоить.
1. Дано n целых чисел. Вывести все числа, меньшие последнего числа в ряду;
2. Определите, есть ли в массиве числа от 3 до 7. Укажите их номер.
Вы находитесь на странице вопроса "Найти и вывести все числа строки. Если их нет, то сообщить. (Pascal)", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.