Помогите с программой в турбо паскале нужно определить число символов а и заменить запятые пробелом.

Пробовала через копи и пост но в итоге белиберда получается как прогу составить?

Question

Информатика

Саломея

16 февраля, 01:22

Помогите с программой в турбо паскале нужно определить число символов а и заменить запятые пробелом.

Пробовала через копи и пост но в итоге белиберда получается как прогу составить?

+1

Ответы (1)

Знаете ответ на вопрос?

Вильгельмина · Answer 1

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.