Mail.ruПочтаМой МирОдноклассникиИгрыЗнакомстваНовостиПоискСмотриComboВсе проекты

Помогите с Паскалем! Составте программу которая заменяет все буквы 'о' в ведённом слове, на ' ' (пробелы).

*#_Simply love me_#* Ученик (142), на голосовании 10 лет назад
Голосование за лучший ответ
Иг Мудрец (11144) 10 лет назад
что никто не может помочь? напишу программу за 50р, оплата через Яндекс Деньги
Aleks Профи (807) 10 лет назад

Var
s:string[40];
i:integer;
k:byte;
begin
writeln('Введите строку');
readln(s);
k:=0;
for i:=1 to length(s) do
if s='O' then
begin
s:=' ';
k:=k+1;
end;
writeln('Исправленная строка ',s);
writeln('Количество замен ',k);
end.

Примерно так.

Похожие вопросы
Также спрашивают