Пусть V - объем скачиваемых файлов, t - время скачивания, v - скорость.
V = v*t = 20*t
Скачивание файла папой (20% от 20 мин = 4 мин):
4*v+6*(v/2)+x*(v/3) = 20*v ⇒ 4+3+x/3 = 20 ⇒ x = 39
Скачивание файла мамой:
6*(v/2)+39*(v/3)+y*(v/2) = 20*v ⇒ 3+13+y/2 = 20 ⇒ y=8
Ответ: 8
<em>// PascalABC.NET 3.2, сборка 1379 от 21.01.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var m:=ReadInteger('Количество строк в матрице:');
var n:=ReadInteger('Количество столбцов в матрице:');
Writeln('*** Исходная матрица [',m,',',n,'] ***');
var a:=MatrRandom(m,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
if a.Rows.SelectMany(x->x).Sum mod 21=0 then
Writeln('Сумма элементов одновременно делится на 3 и на 7')
else
Writeln('Сумма элементов одновременно не делится на 3 и на 7')
end.
<u>Примеры</u>
Количество строк в матрице: 4
Количество столбцов в матрице: 7
*** Исходная матрица [4,7] ***
73 -53 69 -94 -38 50 30
-9 63 54 28 -56 68 21
-97 18 -80 68 86 -27 -3
33 -30 -17 6 -69 -95 -81
----------------------------
Сумма элементов одновременно не делится на 3 и на 7
Количество строк в матрице: 5
Количество столбцов в матрице: 4
*** Исходная матрица [5,4] ***
-53 14 50 52
-81 55 14 -89
99 -53 37 96
73 27 -8 -85
0 -8 46 50
----------------
Сумма элементов одновременно не делится на 3 и на 7
Program pr;
uses crt;
Var k,a,sum:integer;
Begin
Writeln('Vvedite posledovatelnost');
k:=0;
readln(a);
sum:=a;
While a<>0 do
Begin
readln(a);
sum:=sum+a;
if (a mod 2=0) and (a mod 3=0) then k:=k+1;
end;
Writeln('k=',k);
Writeln('sum=',sum);
readln;
end.