Ну вы хотябы Сделайте фотографию чтобы посмотреть что там)
Var a,b,p,n:integer;
begin
writeln ('Введите два числа:');
readln (a, b);
n:=abs(b);
if (a=0) or (b=0) then
writeln (a,'*',b,'=0')
else begin
while (n<>0) do begin
n:=n-1;
p:=p+abs(a)
end;
if (a>0) and (b>0) then writeln (a,'*',b,'=',p);
if (a<0) and (b<0) then writeln ('(',a,')','*','(',b,')','=',p);
if (a>0) and (b<0) then writeln (a,'*','(',b,')','=-',p);
if (a<0) and (b>0) then writeln ('(',a,')','*',b,'=-',p);
end;
end.
Возьмём любую цифру, допустим +2. Сдвинем каждую букву на 2 вправо.
к л м
а б в
л м н
ь э ю
к л м
у ф х
л м н
я а б
т ч ш
о п р
р с т
<span>Получаем мвнюмхнбшт</span>
Сначала найдем время, за которое был передан 1ый файл :
t= I / V ( I - размер файла, V - скорость)
t = 16 * 1024 / 512 = 32 секунды ( умножаем на 1024, чтобы перевести в байты объем файла )
Теперь находим объем 2 файла
I = V*t = 32*512 = 16384 бита = 2 Кб
Ответ: 2 Кб