Лучший ответ

    1.  2 0

    СССР 7 (42430)6934 12 лет  

    program odin;
    uses crt;
    begin
    write "5051";
    readln;
    end.

Ответы

    1.  1 0

    blblblbl 8 (115613)815115 12 лет  

    program dd;
    uses crt, graph;
    var x,y :integer;
    LABEL A,B;
    begin
    writeln;
    A: X:=X+1;
    textcolor(X);
    WRITE('TETXT % ',X);
    IF X>33 THEN GOTO B;
    GOTO A;
    B:
    READLN     ;
    END.

    1.  0 0

    MC_XakeP 6 (12771)2314 12 лет  

    Что значит любую?

    1.  0 0

    Женя (35) 7 (39320)538136 12 лет  

    program lol;
    begin
    writeln "Hello world";
    readln;
    end.

    1.  0 0

    Regory 1 (128)16 12 лет  

    program HelloWorld;

    begin
      writeln('Hello World');
    end.

Похожие вопросы

Рейтинг@Mail.ru Top.LV PULS.LV Professional rating system