Составьте программу, которая...

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

  1. orla

    orla New Member

    Составьте программу, которая выводит все буквы И, стоящие на чётных местах
     
    orla, 24 мар 2010
    #1
  2. Svetko

    Svetko New Member

    uses crt;
    var i:integer;
    s:string;
    begin
    i:=1;
    read(s);
    repeat
    if (s='и') and (i mod 2=0) then
    s:=copy(s,1,i-1)+copy(s,i+1,length(s));
    i:=i+1;
    until i=length(s)+1;
    writeln(s);
    end.
     
    Svetko, 24 мар 2010
    #2

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

Наша группа