Файл размером 2 мбайта передаётся через некоторое соединение за 80 секунд. определите размер файла (в кбайтах), который можно передать через это же соединение за 120 секунд. в ответе укажите одно число - размер файла в кбайтах

Размер фаила 2020 кб так как в 1мб 1010кб

На экран будет выводится:   а) 45   y : = 0; for x : = 1 to 9 do y : = y + x;   в начале y=0; потом начинается цикл : от 1 до 9 (включительно и с шагом в единицу(+1)) x: =1;   y: =0+1; y: =1; x: =2; y: =1; y: =x+y; y: =2+1; y: =3 ; x: =3; y: =3; y: =3+3; y=6; x: =4; y: =6; y: =4+6; y=10; и т.д. по аналогии  б)0   y : = 0; for x : = 1 to 5 do y : = y * x; writeln (y); при умножение числа на 0 будет 0; т.к. y : = 0;   , то в равенстве y : = y * x;   , при любом значение x, y будет = 0

Begin      var n,x: string;       var k,y: integer;   var m: longint;   writeln ('как тебя зовут? ');   readln(n);   writeln ('введи номер класса в котором ты учишься. ');   readln(k);   y: =2016+1+11-k;   writeln (n,' закончишь школу в ',y,' году. верно? да/нет. ');   read(x);     if x='да'       then writeln ('ай да я! ай да молодец! ')       else             if x = 'нет'           then writeln ('ой! неужели ошиблась? ! ')             else writeln ('хм! вечный школьник? ! '); end.