Необходимо вывести буквы латинского алфавита, стоящие на четных позициях.Добавлено (16.11.13, 20:24)
---------------------------------------------
Просто вывести буквы латинского алфавита можно так:
program z1;
var i:char;
begin
for i:='a' to 'z' do write(i,' ');
end.
или так:
program z2;
var i:char;
Begin
i:='a';
while i<>succ('z') do begin
if i<>succ('z') then
write(i,' ');
i:=succ (i);
end;
end.
Не понимаю как определить четность в данном случае.
