Файл размером 1200 Кбайт передаётся через некоторое соединение втечение 1 минута. Определите размер файла (в Кбайт), который можно передать через это соединение за 36 секунд. В ответе укажите одно число — размер файла в Кбайт

274

279

Посмотреть ответы 1

Ответы на вопрос:

Denair

Информатика

4,5(20 оценок)

Const maxn=15; var a: array[1..maxn] of integer; skv,prod,gr,i: integer; begin writeln('введите ',maxn,' чисел'); skv: =0; prod: =1; gr: =0; for i: =1 to maxn do begin write(i,': '); readln(a[i]); if a[i]< 0 then skv: =skv+a[i]*a[i]; if (a[i] mod 2 = 0) and (i mod 2 = 0) then prod: =prod*a[i]; if abs(a[i])> 100 then gr: =gr+1; end; writeln('сумма квадратов отрицательных: ',skv); writeln('произведение четных на четных местах: ',prod); writeln('больше 100 по модулю: ',gr); end. введите 15 чисел 1: 151 2: -231 3: 104 4: 19 5: 36 6: -112 7: 5 8: 8 9: 11 10: 13 11: 45 12: 5 13: 6 14: 17 15: 19 сумма квадратов отрицательных: 65905 произведение четных на четных местах: -896 больше 100 по модулю: 4