Как написать программу...

Тема в разделе "Информатика", создана пользователем kraski62, 19 мар 2010.

  1. kraski62

    kraski62 New Member

    Как написать программу что бы она в тексте меняла букву а на букву о и наоборот
     
    kraski62, 19 мар 2010
    #1
  2. rock-n-roll

    rock-n-roll New Member

    var
    s: string;
    i: integer;
    begin
    readln(s);
    for i := 1 to length(s) do begin
    if(s = 'а') then s := 'о'
    else if(s = 'о') then s := 'а';
    end;
    writeln(s);
    end.
     
    rock-n-roll, 19 мар 2010
    #2

Поделиться этой страницей

Наша группа