Лучший ответ

    1.  0 0

    sonicflare_ (40) 6 (16395)21242 16 лет  

    слушай эксперта... Делфи сакс =))))))

Ответы

    1.  0 0

    Дима (39) 7 (31960)477261 16 лет  

    ну, во-первых, ты должен указывать, какую тему вы сейчас проходите, иначе ответы тебе будут бесполезны - препод скажет "мы этот метод ещё не проходили"

    во-вторых, тебе придётся заточить код под свои нужды, так что хоть немного шарить в предмете ты должен. Дерзай!


    program srA;

    {$APPTYPE CONSOLE}

    uses SysUtils;

    var i, sum, zer, len:integer;
        s:string;

    begin
    repeat

    write('numeral = ');
    readln(s);

    sum:= 0;
    zer:= 0;
    len:= length(s);

    for i:= 1 to len do sum:= sum + strtoint( s );
    for i:= 1 to length(s) do if s = '0' then zer:= zer+1;

    writeln('sum = ', sum / (len-zer) );



    until s = 'q';
    end.




    program drO;

    {$APPTYPE CONSOLE}

    uses
      SysUtils, shellapi;

    var chis, znam: integer;

    begin
    write('chislitel ');
    readln(chis);
    write('znamenatel ');
    readln(znam) ;

    if chis / znam > 0 then writeln('znak: +');
    if chis / znam < 0 then writeln('znak: -');
    if chis / znam = 0 then writeln('znak: 0');

    writeln('celaja chastj ', trunc(chis/znam) );

    writeln('sokrawenie drobi');

    shellexecute(0,nil,'explorer','"http://forum.codenet.ru/showthread.php?t=31087"',nil,0);

    writeln('ЇаҐбб н­Ё-ЄЁ вг ЄaHвЁHЁг¬*');
    readln;
    end.


    ________________________________
    никто не застрахован от ошибок.

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

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