1. Задача №112348. Замена Напишите программу, которая заменяет в символьной строке все вхождения одной подстроки на
другую. Используйте процедуру.
Входные данные
Первая входная строка содержит символьную строку, которую нужно обработать. Во второй и
третьей строках записаны соответственно подстрока-образец (которую нужно менять) и
подстрока-замена.
Выходные данные
Программа должна вывести обработанную символьную строку, в которой все вхождения
подстроки-образца заменены на подстроку-замену.
Примеры
входные данные
abcDEFabcgh
abc
XYZ
выходные данные
XYZDEFXYZgh
2) в 1 дюйме = 2,54 см, значит в 10 см содержится 3,94 дюйма (10/2,54 = 3,94)
3) 3,94* 1200 = 4728 пикселей по ширине и по высоте экрана
4) 4728 * 4728 = 22353984 точек в цветном изображении 10 на 10 см
5) 22353984 * 24 = 536495616 бит - информационный объем изображения
Переведем в большие единицы измерения:
536495616 бит / 8 = 67061952 байт / 1024 = 65490,2 Кбайт / 1024 = 64 Мбайта
ответ: полученный файл будет 64 Мбайта.
// Внимание! Если программа не работает, обновите версию!
function MyNum(a:array of integer;lim:integer):=a.Where(x->x<lim).Count;
begin
var p:=ArrRandom(ReadInteger('n='),-99,99); p.Println;
var k:=ReadInteger('Введите границу отсечения элементов:');
Writeln('Количество элементов, меньших ',k,', равно ',MyNum(p,k))
end.
Пример
n= 17
-50 -52 -98 1 99 27 -44 70 -65 -22 -64 48 91 3 -69 -69 52
Введите границу отсечения элементов: 23
Количество элементов, меньших 23, равно 11