решить задачу по информатике. В одном массиве записано количество мячей, забитых футбольной командой в каждой из 20-ти игр, в другом – количество пропущенных мячей в этой же игре. Для каждой игры определить словесный результат игры (выигрыш, проигрыш или ничья). Задачу нужно решить двумя без использования дополнительного(третьего) массива 2)с использованием дополнительного массива

при использовании компьютерного алфавита 1 символ = 1 байт, значит

20000 символов = 20000 байт

20000 : 1024 = 19,5 кбайт

19,5 кбайт < 20 кбайт, значит текст на дискету поместиться.

// pascalabc.net

// версия 3.3.5 сборка 1662 (29.04.2018)

а

begin

    println('кол-во символов -',readstring('слово-> ').length)

end.

пример:

741258963

кол-во символов - 9

б

begin

    var s: =readstring('слово-> ').tolower;

    println(s[1]=s[s.length]? '': 'не ');

end.

пример:

слово-> олово

в

begin

    var s: =readstring('слово-> ');

    println(s[1],s[2],s[s.length]);

end.

пример:

слово-> плотина

п л а

г

begin

    println(readstring('слово-> ').length mod 2=0? 'четно': 'нечетно');

end.

пример:

слово-> виноград

четно

крик

а)

var

    p,d,h: real;

begin

    readln(h);

    p: =1200*9.8*h;

    writeln(p);

end.

б)

var

    m,h,r: real;

begin

    readln(h);

    readln(r);

    m: =1200*3.14*h*r*r;

    writeln(m);

end;

в) необходимы дополнительные условия количество сосудов

если принять количество сосудов за k тогда

var

    i,k: integer;

    m,h,r,s: real;

begin

    readln(k);

    s: =0;

    for i: =1 to k do

    begin

            readln(h);

            readln(r);

            m: =1200*3.14*h*r*r;

            s: =s+m;

    end;

    writeln(s);

end.