Var k,summa:integer;
begin
for k:= 15 to 90 do
if k mod 2 =0 then
summa:= summa + 2*k;
writeln(summa);
end.
A B НЕ A НЕ A ИЛИ B
0 0 1 1
0 1 1 1
1 0 0 0
1 1 0 1
Формальное исполнение алгоритма означает, что исполнитель, не понимая смысла, но выполняя правильно каждую команду, может получить правильный результат.
4^9 = 2^18 бит
1) 2^18/2^12 = 2 ^ 5 = 64 сек (на первую передачу)
2) 2^18 бит = 2^5 кб = 32кб
2^7кб - 32кб = 128 - 32 = 96 кб (осталось передать)
3) 96/8 = 12 сек (на вторую передачу)
4) 64 + 12 = 76 сек (на полную передачу)
ответ: 76 сек
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
begin
var n:=ReadInteger('n=');
var b:=ArrRandom(n,10,99); b.Println;
Swap(b[1],b[n-2]); b.Println;
b:=b.Sorted.ToArray; b.Println
end.
<u><em>Тестовое решение</em></u>
n= 15
74 23 76 50 79 79 38 74 21 33 45 10 35 58 48
74 58 76 50 79 79 38 74 21 33 45 10 35 23 48
10 21 23 33 35 38 45 48 50 58 74 74 76 79 79