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

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

Question

Информатика

Васяка

7 февраля, 22:38

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

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

+4

Ответы (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.