Помогите с программой в турбо паскале нужно определить число символов а и заменить запятые пробелом. Пробовала через копи и пост но в итоге белиберда получается как прогу составить?
Помогите с программой в турбо паскале нужно определить число символов а и заменить запятые пробелом.
Пробовала через копи и пост но в итоге белиберда получается как прогу составить?
Гость
Ответ(ы) на вопрос:
Гостьvar
s:string;
i,k:integer;
begin
readln(s);
k := 0;
for i := 1 to length(s) do
if s[i] = ',' then
s[i] := ' '
else if s[i] = 'a' then
k := k + 1;
writeln('"a": ',k);
writeln(s)
end.
Не нашли ответ?
Похожие вопросы