Предмет: Информатика,
автор: BabyNandos1
Помогите, пожалуйста!!
вывести на экран коды таблицы от 0 до 250 и их символы. выводить парами.
Ответы
Автор ответа:
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.
Похожие вопросы
Предмет: Английский язык,
автор: bulbuloteuova
Предмет: Русский язык,
автор: maxim15aq
Предмет: Математика,
автор: Daniyarnurgabdenov
Предмет: Алгебра,
автор: maks31415926
Предмет: Математика,
автор: dianavzha