Помогите с программой в турбо паскале нужно определить число символов а и заменить запятые пробелом.
Пробовала через копи и пост но в итоге белиберда получается как прогу составить?
Ответы на вопрос
Ответил Segrif
0
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.
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.
Новые вопросы
Математика,
2 года назад
Геометрия,
9 лет назад
Химия,
9 лет назад
Алгебра,
9 лет назад
Геометрия,
9 лет назад