Ответы
Ответ дал:
0
Вывести на экран можно символы с 32 по 255. Код ниже.
Var k: integer;
Begin
For k:=32 to 255 do begin
Write (k:4, chr(k):2,' ');
If k mod 8 = 7 then writeln;
End;
End.
Var k: integer;
Begin
For k:=32 to 255 do begin
Write (k:4, chr(k):2,' ');
If k mod 8 = 7 then writeln;
End;
End.
Вас заинтересует
2 года назад
2 года назад
7 лет назад
10 лет назад
10 лет назад
10 лет назад
10 лет назад