Информатика | 10 - 11 классы
Дан текст.
Напечатать все имеющиеся в нем цифры.
Срочно?
Срочно!
Pascal
Из заданного текста предложения выбрать и напечатать только те символы, которые встречаются в нем только один раз (в том порядке, в котором они встречаются в тексте).
Дан текст, в котором есть цифры, найти сумму всех этих цифр?
Дан текст, в котором есть цифры, найти сумму всех этих цифр.
Дано натуральное число?
Дано натуральное число.
Найти номер цифры 3 в нем, считая от конца.
Pascal?
Pascal.
Задана последовательность символов, за которой следует точка (в саму последовательность точка не входит).
Напечатать текст, удалив из него все цифры.
Дано натуральное число?
Дано натуральное число.
Определить, есть ли в нем цифра равная а (а вводится с клавиатуры).
Дано предложение?
Дано предложение.
Напечатать все слова, которые встречаются в нем по одному разу.
Дан текстовый файл?
Дан текстовый файл.
Напечатать в алфавитном порядке все слова из данного файла, имеющие заданную длину n.
Паскаль.
Помогите пожалуйста?
Помогите пожалуйста.
Напечатать программу в паскале.
Срочно.
Завтра последний срок сдачи.
Дан массив строк без пробелов.
Напечатать строки, вторая половина которых не содержит цифры.
Дано натуральное число ?
Дано натуральное число .
Определить есть ли в нем цифра а Написать с постусловием язык Паскаля !
Дано целое число, найдите в нем повторяющиеся цифры ; выведите эти цифры и их количество( на Паскале)?
Дано целое число, найдите в нем повторяющиеся цифры ; выведите эти цифры и их количество( на Паскале).
На этой странице находится ответ на вопрос Дан текст?, из категории Информатика, соответствующий программе для 10 - 11 классов. Чтобы посмотреть другие ответы воспользуйтесь «умным поиском»: с помощью ключевых слов подберите похожие вопросы и ответы в категории Информатика. Ответ, полностью соответствующий критериям вашего поиска, можно найти с помощью простого интерфейса: нажмите кнопку вверху страницы и сформулируйте вопрос иначе. Обратите внимание на варианты ответов других пользователей, которые можно не только просмотреть, но и прокомментировать.
Var
st : string ;
i : byte ;
begin
readln(st) ; / / вводим строку
write('Числа имеющиеся в тексте : ') ;
for i : = 1 to length(st) do
if (st[i] in ['1'.
'9']) then write(st[i]) ; / / если текущий символ принадлежит ко множеству чисел - то выводим его
end.