Вывести каждую вторую букву алфавита

@168 · Регистрация: 18.10.2013

Нужно вывести каждую вторую букву алфавита .

@CodeR · 18.10.2013, 18:35

Pascal

Var i:char;
Begin
    i:='b';
    While i<='z' do
    Begin
      write(i:2);
      i:=succ(i);
      i:=succ(i);
    End;
    readln;
End.

@168 0 / 0 / 0 Регистрация: 18.10.2013 Сообщений: 4
		1
	Вывести каждую вторую букву алфавита 18.10.2013, 18:20. Показов 2297. Ответов 1 Метки нет (Все метки) Нужно вывести каждую вторую букву алфавита . 0

Опции темы

Решение