Решить задачу в Паскале
"Ввести с клавиатуры 15 элеметов символьного массива. Заменить все цифры на "звёздочки", а все "пробелы" на знаки подчёркивания. СРОЧНО!!! Жду верного решения :) спасибо заранее
"Ввести с клавиатуры 15 элеметов символьного массива. Заменить все цифры на "звёздочки", а все "пробелы" на знаки подчёркивания. СРОЧНО!!! Жду верного решения :) спасибо заранее
Answers & Comments
mas: array[1..15] of char;
i:byte;
begin
Write ('Введите массив:');
For i:=1 to 15 do
Readln (mas[i]);
For i:=1 to 15 do
begin
if (47<ord(mas[i])) and (ord(mas[i]) < 58) then
mas[i]:='*';
if mas[i]=' ' then
mas[i]:='_';
end;
For i:=1 to 15 do
Write(mas[i]);
Readln;
end.