составить программу для решения следующей задачи. из строки выбрать все цифры и сформировать другую строку
10-11 класс
|
S=sdfg745tg2345dfg74
M=7452234574
var
i:integer;
s,m:string;
begin
readln(s);
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then m:=m+s[i];
write(m);
end.
Другие вопросы из категории
записываются в файл, сжатие данных не производится. Какое из приведённых ниже чисел наиболее близко к размеру полученного файла, выраженному в мегабайтах? 1) 0.2. 2) 2. 3)3 .4)4 .как решать и какие формулы?
"определить количество положительных чисел в одномерном массиве"
Читайте также
Зашифровать ее, переворачивая каждое слово. Создать процедуры для разбиения строки на слова и записи слова в обратном порядке.
Привет, Вася!
!ясаВ ,тевирП
2. Составить программу для упорядоченное двух элементов по убыванию.
выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.
результаты на экран. Если они равны, то найдите и выведите удвоенную сумму этих чисел.
каждое из них меньшим и выведите результаты на экран. Если первое число положительное, а второе отрицательное, то уменьшите их в два раза и выведите результаты. Иначе, найдите и выведите среднее арифметическое этих чисел.