В строке заменить все запятые «,» на точки «.». Считать, что слова в тексте записаны строчными буквами и отделены друг от друга одним пробелом — Pascal(Паскаль)

program change;
var
 s:string;
 i:integer;
begin
 readln(s);
 for i:= 1 to length(s) do
 if s[i] = ',' then
 s[i]:= '.';
 writeln(s);
end.

Похожие записи/страницы:

Leave a Comment

− 8 = 2