Составьте программу, которая выводит все буквы И, стоящие на чётных местах

1
Только заглавные?
нет. просто и

Ответы и объяснения

2013-12-15T21:37:17+04:00
uses crt;
var i:integer;
s:string;
begin
i:=1;
read(s);
repeat
if (s[i]='и') 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.
можно узнать? что за команда repeat?
Цикл. Можно заменить на while.