Составьте программу по информатике которая удаляет в строке s все пробелы, и заменяет их на точки.
Ответы на вопрос
Ответил Аноним
0
// PascalABC.NET 3.0, сборка 1088
var
s:string;
i,p:integer;
begin
Write('Введите строку: '); ReadLn(s);
for i:=1 to Length(s) do
if s[i]=' ' then s[i]:='.';
WriteLn('Результат: ',s)
end.
Тестовое решение:
Введите строку: Это дело такое - тестировать программы !
Результат: Это.дело.такое.-.тестировать...программы...!
var
s:string;
i,p:integer;
begin
Write('Введите строку: '); ReadLn(s);
for i:=1 to Length(s) do
if s[i]=' ' then s[i]:='.';
WriteLn('Результат: ',s)
end.
Тестовое решение:
Введите строку: Это дело такое - тестировать программы !
Результат: Это.дело.такое.-.тестировать...программы...!
Ответил milkeway0101
0
огромное спасибо)
Ответил Аноним
0
Пожалуйста. А для "спасибо", чтобы не писать, тут синенькая кнопочка. И звездочки - для размеров "спасибо" )))
Новые вопросы