Распечатать все символы с четными номерами в интервале кодов от 0 до 255.

[julu199]

Распечатать все символы с четными номерами в интервале кодов от 0 до 255.

[Niro]

Меняйте русские на английские. И проверяйте

вар и: ворд;
бегин
 и:= 0;
 вайл и<=255 ду
  бегин
   врите (счр (и)," "); или врите (орд (и)," "); - не помню что правильно счр или орд
   и:=и+2;
  энд;
 реадлн;
энд.

[newerow1989]

var a:byte;
    c:char;
begin
   For a:=0 to 255 do
      If a mod 2=0 then
      begin
         c:=Char(a);
         Writeln(a,' <=> ',c);
      end;
   Readln;
end.