Question

можно пожалуйста решение на паскале

Answer 1

program zvonr;

uses

crt;

var

i, oc: integer;

var

s: string;

begin

writeln('Введите строку:');

readln(s);

oc := 0;

for i := 1 to length(s) do

begin

if s[i] = 'o' then

oc := oc + 1 ;

if (oc = 2) then

begin

s[i] := 'r';

oc := 3;

end ;

end;

if oc < 2 then

writeln('Слишком мало букв "o" в строке! Завершение программы...')

else

begin

writeln('Изменённая строка:');

writeln(s);

end;

readln;

end.