Форум портала Metropolis

#include <conio.h>
#include <stdio.h>

int main(){
 
  int key = getch();  //считываем
  printf("%d",key);     //выводим

  getch();

return 0;
}

#include<stdio.h>

int main()
{
	printf("%d", getchar());
	getchar();
	getchar();
	return 0;
}

program trololo;

var
c: char;

begin
    readln(c);
    writeln(ord(c));
    readln
end.

program trololo;
uses crt;

var
    c: char;

begin
    repeat
        repeat until keypressed; { жрать проц пока не нажата клавиша }
        c:=readkey;
        writeln(ord(c));
    until c<>^[; { пока не нажат esc }
end.

mov cha,al

program tralala;
uses Crt;
var cha:char;
    bPrint:boolean;
begin
     bPrint:=True;
     while True do
     begin
          while not keypressed do;
	    asm 
		mov ah,0h
		int 16h
		mov cha,al
	    end;
          if cha=' ' then break;
          if bPrint 
	   then write(ord(cha));
          bPrint:= not bPrint;
     end;
end.

program lab2;
var x,y:integer;
    c:byte;
begin

     asm
        mov ah,0
        mov al,12h
        int 10h
     end;
     for x:=0 to 639 do
        begin
             c:=x mod 16;
             for y:=0 to 479 do
                begin
                     asm
                         mov cx,x
                         mov dx,y
                         mov al,c
                         mov ah,0ch
                         int 10h
                     end;
                end;
          end;
          asm
             mov ah,0h
             int 16h
          end;
end.