Begin
var a:=ArrRandom(40,0,20).Println;
var s:=a.Where(x->x mod 3 = 0).Sum;
writeln('S = ',s);
end.
Пример:
8 11 7 18 1 9 10 16 5 1 15 17 15 20 12 7 15 18 2 15 0 7 19 4 7 17 2 19 3 11 1 15 1 2 3 4 18 5 7 1
S = 156
V1 - только это монета встречается во всех взвешиваниях.
Это же слишком элементарно, чтобы самому не сделать...
var x:real;
begin
writeln('vvedi x:');
readln(x);
writeln('y=',2*x-5/x-1);
end.
60*45*1200=3240000 символов, один символ равен 1 байт, 1байт=8битам, 3240000*8=25920000, 1 мб=8000000бит, следовательно 25920000/8000000=3,24мб, 700/3,24= приблизительно 216. правда можно было и без перевода в биты, но мало ли))
Ответ А14
Разберёмся:
по А будет доходить 15 + 2 + 2^21/( 0,25 * 8) = 15+2+1 =18 с
по Б будет доходить 8 * (8/2) = 32 с