Программа: Вывод букв стоящих в нечетных местах

Задача: Дано слово. Вывести все буквы, стоящие в нечетных местах

PROGRAM slovonechet;
	USES crt;
	var str :string; 
    	x,i :integer;
BEGIN
	WriteLn('Введите любое слово: ');
	ReadLn(str);
	x:=length(str);
	for i:=1 to x do
	  if i mod 2 <> 0 
      then write(str[i]);
END.

Просмотрело: 2213

Возможно, Вы искали: