В строке заменить все двоеточия (:) точкой с запятой (;). Подсчитать количество замен

@Анюта*** · Регистрация: 06.06.2011

Author24 — интернет-сервис помощи студентам

помогите в т.Паскаль(оч надо!!

Kodzaev · 11.07.2011, 16:23

Pascal

uses crt;
var s:string;
k,i:integer;
begin clrscr;
write('vvedite stroku: ');readln(s);
for i:=1 to length(s) do
if s[i]=':' then inc(k);
for i:=1 to length(s) do
if s[i]=':' then s[i]:=';';
writeln(s);
write('kolichestvo zamen: ',k);
readln
end.

@Даня98 · 11.07.2011, 16:25

Kodzaev, зачем два for?

Pascal

for i:= 1 to length(s) do
if s[i]=':' then
begin
inc (k);
s[i]:= ';';
end;

@Анюта*** 11 / 1 / 0 Регистрация: 06.06.2011 Сообщений: 17
		1
	В строке заменить все двоеточия (:) точкой с запятой (;). Подсчитать количество замен 11.07.2011, 16:17. Показов 4754. Ответов 2 Метки нет (Все метки) помогите в т.Паскаль(оч надо!! 0

	11.07.2011, 16:25

Опции темы

В строке заменить все двоеточия (:) точкой с запятой (;). Подсчитать количество замен

Решение