Question

очень срочно


дана строка s. заменить все запятыми на точки.
​

Answer 1

Ответ:

var s: string;

i:integer;

begin

readln(s);

for i:=1 to length(s) do if s[i]=',' then s[i]:='.';

write(s)

end.

Answer 2

===== PascalABC.NET =====

begin

 var s := ReadlnString;

 s := s.Replace(',', '.');

 Println(s)

end.