program ascii;
uses
Crt;
var
i,n : 0..255;
begin
ClrScr;
write('n=');
readln(n); {n=26}
for i:= 0 to 255 do
begin
if (i mod n = 0) and (i>0) then
writeln;
if i in [0,7,8,10,13] then
write(' ':1)
else
write(chr(i):1);
write(chr(179));
end;
writeln;
readln;
end.
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.