Дано предложение S удалить в нем все буквенные символы

Знания

Информатика

1 ответ:

ИКС2 года назад

0 0

// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!

begin
var s:=ReadlnString;
s:=s.RegexReplace('[A-Za-zА-Яа-яЁё]','');
Writeln(s)
end.

Пример
s1<s2, если для первого несовпадающего символа с номером i s1[i]<s2[i]
1<2, 1[]<2[]

Читайте также

Диаграмма, данные на которой изображаются в виде секторов круга. 8 букв, вторая"Р", четвертая "Г", седьмая "А".

Andrey211990

Можеь быть круговые если ты ошибся в седьмой

0 0

3 года назад

ПОМОГИТЕ ПОЖАЛУЙСТА!!Вычислите сколько байтов занимает на СD одна минута звукозаписи ( частота дискретизации-44 000, разрядность

Dplmatin

Объем файла : С=t*b*N, где С- Объем звукозаписи в байтах, t - время в сек., b- разрядность в байтах, N - частота дискретизации в Гц или 1/сек.

С= 60*(16/8)*44000 = 5280000 байт = 5156 КБайт = 5,03 Мбайт

Продолжительность звукозаписи из той же формулы:

t=C/b*N C- Объем диска в байтах. b- разрядность в байтах, t- время в сек.

t=(700*1024*1024)/(16/8)*44000= 8340,94 сек = 139 мин.

0 0

4 года назад

Основные принципы использования офисного по в офисной работе помогите плиззз

Марин4 [50]

Составление ДРОК,УЗГ и.т.д в условиях повышенной дезрентабельности

0 0

4 года назад

Заполнить массив из 15 элементов числами из интервала от -10 до 10 вывести в строчку и повторно вывести в строчку, заменив полож

Rosita [382]

program name;

const

n:=15

var

i,a:array[1..n] of integer;

begin

for i:=1 to n do begin

random(a[i]);

writelm(a[i]);

end;

end.

Пол задания

0 0

4 года назад

3. Какое из высказываний является истинным: a. Для того чтобы число делилось на 3, достаточно, чтобы его последняя цифра делилас

jaja75

b. Для того чтобы число делилось на 2, достаточно, чтобы оно было четным
d. Для того чтобы число делилось на 3, достаточно, чтобы сумма его цифр

0 0

3 года назад

Прочитать ещё 2 ответа