1. найти сумму и количество отрицательных чисел, значения которых не превышают -3 из 8 введенных. написть программу в паскале

program zadacha; var a,b,c,d,k: integer; beginc: =0; k: =0; d: =0; repeatbeginreadln(a); b: =a; c: =c+1; if (a< -3)thenbegind: =b+a; k: =k+1; end; end; until c=8; writeln(d); //eto summawriteln(k); //eto kolichestvoreadln; end.

Рассмотрим случай, когда число клеток по вертикали n четное. в этом случае каждая пара горизонталей доски содержит ровно m клеток (m - число клеток доски по горизонтали). тогда общее число черных клеток равно m*n/2. при нечетном n к рассмотренным горизонтальным строкам добавляется еще одна - нечетная, конфигурация которой совпадает с первой (нечетной) горизонталью. если клетка в левом нижнем углу первой горизонтали черная, то количество черных клеток в ней можно определить как сумму результата целочисленного деления количества клеток по горизонтали на два и остатка от этого деления. в результате приходим к следующей формуле: ниже представлен текст программы на языке pascal.abc.net var   m, n: integer; begin   write('введите количество горизонталей на доске: ');   readln(n);   write('введите количество вертикалей на доске: ');   readln(m);   if (n mod 2) = 0 then writeln('черных клеток на доске- ', m * n / 2)   else writeln('черных клеток на доске- ', m * (n-1) / 2 + (m div 2) + (m mod 2)) end. тестовое решение: введите количество горизонталей на доске: 8 введите количество вертикалей на доске: 7 черных клеток на доске- 28

1. 40мб = 40960 кб. пусть v1 = 128 кб/c, а v2 = 64кб/c (по условию), то s1=20480кб, а s2, соответственно, тоже 20480кб. отсюда t1= s1/v1 или t1=20480кб/128кб/с=160с. соответственно t2=20480кб/64кб/c=320c. отсюда t=160+320=480c или 480с/60с=8минут. 2. 19минут = 1140 секунд. тогда размер файла составляет 17мб*1140с=19380мб или,примерно, 19гб. т.к. 1гб не оплачивается, то 19-1=18гб трафицируются. тогда 18гб=18432мб. цена составляет 18432мб*0,06 рублей = 1106 рублей.  p.s. не дешевый, однако, провайдер. : d